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软件评述 


苏徤民 


我的工作要经常编写讲义，撰写论文，还要时常修 
改，反复誉抄，不胜其烦，很想利用计算机进行文字处 
理，单位虽有 PC 机,终究不大方便 ，一 不能在身边摊 
―大堆资料，二不能想什么时候写就什么时候写。今年 
得到一台中华学习机，这一愿望才得以实现。 

用计算机写文章，首先要有文字编辑软件，因为没 
有经验，不会挑选，生买到的不好用，只好再改用别的， 
加上兴之所至，竟先后试用过五种中华学习机汉字处 
理软件或卡。几个月来，我用这些软件编写过约20万 
字的讲义和若干论文、书信，从使用角度对其有所体 
验。现在把自己的经验体会作一介绍，供同好者参考， 
也可供软件设计者改进之用。不过我的看法不一定芷 
确，我所指出的缺点，也许并非软件所有，其实是我自 
己不会用之故，请软件作者纠正。 

―、 《中 文字处理》软件 

这是我买到的第一个文字处理软件，很快便因无 
法使用而放弃，后来才发现，问题其实是由于使用说明 
的印刷错误所引起，使用说明中所有的 “ CTRL — C ” 都 
误作 “CTRL — Z ”, 使人无法使用下去。 

在我用过的五种文字处理软硬件中，这种的功能 
是较不完善的。它的最大、最致命的缺点是文本每行， 
也就是每段，最多只能有200个字符或100个汉字，这 
不仅使得每段文宇过短，常常迫使作者在不该分段的 
地方分段，而且要为如何分段而绞尽脑汁。我就试图事 
先规定好每印刷行的字数（比如32个汉字即64列字 
符）,然后在输入时取适当的倍数（比如192列）列时换 
行，以便打印时，段间自动连接成为大段，这样做计算 
稍有失误就会出错，而且如遇增删修改，就会牵一发而 
动全身，因而实际上很难实用。 

软件的第二个重要缺点是打印文本时不能设置页 
打印格式，即不能自动分页，这在打印多页文件时是极 
不利的，我在使用中用 “ CTRL — S ” 暂停打印，人工走纸 
后按任意键恢复打印的办法勉强解决分页问题，不但 
浪费时间,而且按 “CTRL — S ” 键的时机很难掌握,行数 
时多时少，而且有时断在行中，打印结果很不理想。 

至于其他缺点如光标走到屏幕右边时，继续敲键 
时全屏幕左移，不便于观察上下文；没有字块 操作; 要 
同时插入 DOS 3. 3软盘等都是次要的。 

二、 《DZY 中文编辑》软件 


这是一个功能比较完善的软件，带有五笔字型输 
入（一级）；有字块操作;有编辑光标快速移动命令，如 
移到文章首尾或上下屏幕，使用起来比较方便， 

这个软件的打印功能较好，特有的优 点是: 除中华 
机原有的 1—15 号字型以外,增加了 21—31号大型 
字;增加了纵向（右转90度)输出；增加了反白，即可打 
印输出黑底白字，缺点是字型设置只限前三行，第三行 
以后同一字型。 

本来这个软件应该是可以较好地使用的,但不知 
何故，在输入字数较多时，文末往往出现混乱，此时编 
辑命令失去作用，既无法修改，更无法存盘，造成前功 
尽弃。由于本软件无页、行、列指示，起初以为可能是输 
入超过限度所致,但有时输入仅1000字左右就发生混 
乱，提示行中，原来 “ DZY 中文编辑”的字样也变成 
“ DZY 谋咪”之类怪字，使编辑工作无法继续。 

三、 《 CEC — Wordstar VI . 0 》 软件 

这是我使用时间最多，比较好用，比较满意的一个 
软件,该软件带有五笔字型(一级)输入;有字块操作， 
打印命令较完善，能分行指定打印格式，能自动分页 t 
文本输入容量较大，可输入约7000个汉字 | 我的体会 
是，在编写讲义论文时，一般是可以满意地使用了。 

这个软件的最大缺点是，屏幕最后一列是单数，在 
输入汉字时，由于显示的原故，留 下一个 非定位，而在 
输入字符时却占满。这在文中排表，或上下行相应对齐 
时往往造成困难，很伤脑筋。 

另外，软件有的功能在使用说明中未介绍。例如， 
从使用说明看，没有告诉用户可以分别指定各行字型 
字距及其方法，我通过摸索发现实际上却是可以的，只 
要在指定行前面建立打印指示，用 A - P 指定字号 , T 
加上数字指定行内字数, V 加上数字指定空移， Y 加上 
数字指定行距， X 加上数字指定字距，上述字符及数字 
不须分隔，再在前后用作为打印命令标志即可。 

另外的欠缺，如缺少光标快速移动命令等都是次 
要的。 

四、 《超级汉字文章编辑系统 KCSWS VI . 0) 

本来，利用 《 CEC — Wordstar 》 进行文字处理工作也 
是可以了。但当我看到 CSWS 软件广告时，还是被它吸 
引住了，这是我迄今为止所看到的功能最完善的中华 
学习机文章编辑软件，强有力的编辑命令，快速的光标 




移动，方便的分段与合并，充分的字块处理，真正达到 
了方便快速的要求。 

系统采用五笔字型输入，特别是增加了词组输入，_ 
用户可自行编制词库，应该是可以大大加快汉字输入 
速度，不过实践结果表明，词库仅 4 K 容量，只能存储 
400来个词组，嫌过小一些，加快本已有限。 

强大的打印功能是本软 件的一 大特色，每一行的 
打印字型、行内字数、前置空格等秦数，都可在文章输 
入时预置，页打印格式也较完善，系统提供30种打字 
字型，虽然其中一些倍密和标准密度的不同字号实际 
上没有区别,但也有25种实用字型，并可进行旋转打 
印。 

最值得称道的是系统提供三种 ASCII 码，我在使 
用中发现，其中半高 ASCII 码特别可用于作上下角标， 
因为在半高 ASCII 码用1号字,正文用5号字时，两者 
大小差至4倍,再在行距上适当处理，完全可以满足化 
学分子式和数学方程式上下角标的需要。 

系统还具有完善的磁盘文件管理功能，特别是文 
件加锻、拷贝操作是其它软件所没有的，其他如系统对 
用户友好也不待细说。 

如前所述，本软件缺点之一是词库容量过小，不太 
实用，同时还因词库占去内存，又引起文本输入容量降 
低到 8 K ，只能输入4000左右汉字，在使用中也发现其 
他一些小的缺点，原软件作者也已察觉，巳开发出新的 
V 2.1 版本，并免费向 VI . 0版用户提供，因未收到并使 
用，暂1从置评。 

五 、《中 华学习机汉字处理 ( CPC ) 卡》 

与前面四种不同，这不是软盘，而是硬卡，插入中 
华机扩展槽中，包括了打印驱动、五笔字型输入、和汉 
字全屏幕编辑三种重要功能于一身。它之所以吸引我 
重复购买(我既有天津无线电二厂出品的五笔字型输 
入卡，也有打印卡，还有多种文字编辑软件），主要是广 
吿中宣传的词组输入功能。实践结果表明，该卡提供的 
2600多个双字词组，的确可以大大加快汉字输入速 
度，因为词组较多，一般用语大多包括，用时得心应手， 
十分方便，缺点是耳笔字型输入中缺少学习键 ( Z 键） 
作用，特别对初学者有所不便。 

更可惜的是，该卡全屏幕编辑用的却是在 EPROM 
上固化的《中文字处理 VI . M 软件，缺点.已如上述，'这 
就大大抵消了.该卡五笔词组输入的优越性，实际上对 
我来说已没有什么使用价值，而一块花费200多元买 
来的硬卡只能当打印卡用，令我十分惋惜，原想硬卡可 
能会少占内存，因而也许能多增加文本容量，实际试用 
结果只能输入7000个汉字，与 《 CEC — Wordstar 》 相同。 

综观以上各种软件系统，从用户角度看，都还不尽 


如人意，例如五笔输入，软件因容量所限，都只有一级 
汉字，遇到二级字仍须求助于区位输入3卩使挤占文本 
空间，词库容量也难达到实用 要求。 中华机内存仅 
64 K ， 在软盘上再增加功能似难办到，至于硬卡，除包 
括全部一二两级汉字五笔输入外，还能容纳2600个双 
字词组看, 容暈比 软件要大许多，但同样有限，因此，要 
进一步提高中华机的文字处理能力，应寄希望于硬卡 
和软盘的结合。 

从实用角度，除部分用户要求较低，现有软件稍加 v 
改进可以满足外，对经常利用中华机进行文字处理的， 
要求较高，经济上的承受能力（3、5百元)也较高，可以 
同时购置硬卡和软盘，建议 CPC 卡的作者增加一种品 
种，即将 EPROM 中的全屏幕编辑程序取消，腾出空间 
增加词组数量；（如有可能，最好能象“小蜜蜂”学习机 
那样，达到7000个常用词组，还有繁体字库和简繁体 
转换;如能加上造字功能就更好 了）； 同时建议 CEC — 
Wordstar 和 CSWS 软件作者增加一种软件品种，其中 
放弃五笔字型输入和词库，腾出空间完善其他功能和 
文本输入容量。软件应协调与 CPC 卡五笔输入方式兼 
容，这样各自发挥专长和优势，当可使中华机的文字处 
理能力提高到一个新的水平，我当引颈企盼。 

• 家庭之友 • 

我和海龟成了好朋友 

海军4819工厂子弟学校四年级潘空谷 

- 我是从’三年级第二学期开始学习 LOCO 语言的。 

刚开始上机时， R 会用右手食指按鍵，找一个键要化好 
长时间。爸爸劝我不要性急，经过一次又一次地上机操 
作，十个手指慢慢地分工了。现在，我按键时很有节拍， 
速度比爸爸还要快。随着上机次数的增多 ，常见 的错误 
一看就知道在哪儿。还能灵活地使用 ST.OP 命令和查 
询命令来调试程序。驱动器、打印机、学习机都能独立 
操作。 

自学了 LOGO 后，我的数学成绩也有了明显提高。 
以前，每次考试，总要妈妈给我辅导，做题目。考试时， 
心里也很紧张，每次都因粗心考不到满分。但在 LOGO 
语言编程.中，要求连一个标点符号都不能错，为了不出 
差错，必须仔细检查，所以经过一段时间的锻炼，使我 
细心起来。许多以前没学过的数学知识，在学 LOCO 时 
得到了预习，老师讲这些内容，我一听就懂。最近一学 
期，数学经常考满分，再不需要妈妈辅导了，老师也表 
扬我计算的又快又正确。 、 

每当我一空下来，就想上机操作，我和海龟已经成 
了一对形影不离的好朋友。 



• 家庭之 友 • 


補导孩子学舒 LOGO 语言 

中国人民解放军第4819工厂潘芝渭 


我在工厂是搞微机应用的，象千千万万个望子成 
才的家长一样，在邓小平同志“计算机的普及要从娃娃 
抓起”的号召鼓舞 r ， 购置了一台 cec — I 机。从小学三 
年级第二学期起，我开始辅导孩子学习 MIT LOGO 
语言，今年七月学完小学阶段教学内容。 

三个学期的悉心辅导，孩子在心理上经历了新奇 
—厌倦一兴趣三个阶段。现在想来，这三个阶段的 
出现和转化，在很大程度上取决于家长的教育方法。 

记得孩子第^•次观看 DOS 3. 3演示，表现出前所 
未有的惊奇和兴趣，在讲述计算机发展简史时几乎听 
得入了迷。在示范了 LOGO 冷启动等开、关机操作后， 
第二次上机时，孩子就把我推开，希望独立操作。然而 
在讲授微型机基本组成和原理以及进行指法训练时， 
孩子表现出惧怕和厌倦情绪，甚至不愿上机玩游戏了。 

孩子心理上的大起大落，应归于不恰当的教育方 
法。试想一个三年级的小学生能理解 CPU 的运算、判 
断和控制功能吗，能想象信号的输入和输出吗，能忍耐 
长时间枯躁无味的指法训练吗。结果事与愿违,孩子对 
电脑望而却步。 

而当我在教学中迎合儿童心理特征，孩子由厌倦 
很快转变为兴趣。我的具体做 法是： 

首先，注意让孩子在轻松愉快的环境中学习。家长 
以朋友的身份出现在孩子面前,遇到难题一起动脑筋 
想办法，及时引导孩子的思路。这样，孩子心理上怕学 
不好受责备的障碍完全消除，心情自然十分轻松，加上 
小海龟生动活泼的表现，牢牢吸引着孩子，在这种良好 
的内、外环境中，孩子容易接受新知识。 

其次，积极鼓励孩子上机验证。孩子在动了一番脑 
筋后，自以为找到了正确答案，这时家长不要轻易肯定 
或否定，要鼓励孩子上机验证，让电脑老师作出裁决。 

例如，画高度线，按题意第1条高度为0,第二条 
线高度为1,第三条线高度为1+2,后面依次为1'+2 
+ 3,1+2+3+4…。孩子首先编了一个尾递归过程，但 
递归语句中的参数变化有误，就叫她上机验证，并提示 


用 PR 语句打印出每条线的序号和高度，结果显然不 
合题意，我又引导她调整递归语句中参数变化规律，最 
后获得成功。 

当孩子的设想被电脑证实时，心理上得到极大满 
足，在雀跃欢欣之余发出“电脑真神奇”的赞叹。久而久 
之就会把电脑当作帮助自己解决问题的得力工具和忠 
实朋友，掌握以实践检验理论的科学方法。 

第三，及时总结解题规律。小学生习惯于按步思 
维，家长要及时总结规律，使他们能按步骤去解决类似 
的实际问题。例如，由移位十重复形成的图形可总结出 
如下解题步骤。 

第一 步:画 一个基本图形，海龟回到原地原 方向。 

第 二步: 海龟走到画下一个基本图的起点。 

第三步 :把第 一步和第二步的命令串用方括号括 
起来，重复执行里面的内容。 

第四，鼓励好奇心、鼓励创新。爱因斯坦说过 :想象 
力比知识更重要。用递归作图往往会得到意想不到的 
结果，它极大地激发了孩子的好奇心，留恋于屏幕前， 
发出一连串的“为什么? ”时，家长最好退到配角的地 
位,协助孩子试验，满足他们的好奇心，让想象的翅膀 
自由飞翔。 

鼓励孩子不满足于一种解法是培养创新精神的好 
办法。例如，在介绍了国际象棋棋盘过程后，我提出新 
的 要求: 方块的个数要能变化，但画出的棋盘仍是正方 
形过孩子的思索和家长启发,终于画出了另一种棋 
盘。 

吴文虎副教授在1989年全国青少年计算机冬令 
营的报告中 说:“ 我主张采用启发式讨论式的教育方 
法，强调动手实践，注意调动学生学习的积极性和创造 
性”，真是字字千金，目前，全国已有几万台中华学习机 
进入家庭，多少父母为培养下一代呕心浙血，家长们只 
有掌握了正确的教育方法才会如愿以偿。上述四点正 
是我把吴文虎副教授讲的话应用于实践中的一些肤浅 
体会，愿和广大家长共同切磋。 
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apple 假脱机打印方法 


潍坊柴油机厂发动机研究所佟德辉 


一般在巡检和自控中，数据打印是必不可少的，但 
APPLE 机现有 的打印 方式却往往不能令人满意，主要 
表现为占用 CPU 时间太多，每打印一字符时，计算机 
总是先检査打印机是否准备好，若没准备好则进入等 
待状态，直至打印机接受指令，在这段时间内， CPU 不 
做任何工作，程序暂停运行，当一次打印数据较多或换 
打印纸时，程序将被挂起较长时间，这在一般的程序中 
可能算不上什么问题，但在巡检和自控中是绝对不允 
许的。另外，打印时，被打印字符同时在显示器上显示， 
易造成显示混乱。为止，本人编制了一个假脱机打印方 
法，解决了上述问题。 

本方法将打印过程由原来的一步完成改为两步完 
成，即首先将要打印的字符送入一个环形打印缓冲区， 
然后，在适当的时机将字符从缓冲区取出送入打印机。 
本方法的第一步是通过修改 CSW 子程序来完成的，该 
子程序使计算机在执行 BASIC 的 PRINT 指令时只将 
需打印的字符串全部送入 相应的 缓冲区，并不真正打 
印，也不显示。实际的打印过程是由第二步即字符输出 
子程序完成的，执行该子程序时，计算机首先检査打印 
机状态和打印缓冲区，若打印机可接受数据且缓冲区 
未空则从缓冲区中取一字符送入打印机，否则不做任 
何事情，直接返回主程序。上述两子程序均由短短的几 
个机器码指令完成，不需等待打印机，打一个字符共需 
CPU 时间130微秒，是原打印方式无法比拟的。实际假 
脱机打印的另一个关键问题是字符输出子程序的入口 
位置，考虑到巡检及自控系统一般需要实时显示各检 
测参数，屏幕显示使用较多，可将该子程序插入 DOS 3. 
3的字符显示子程序中，这样，每显示一个字符则执行 
一次打印输出子程序。 

程序1为实现本方法的机器码子程序，该子程序 
由 APPLE 机 DOS 3. 3支持运行，以语言卡上的 
12 KRAM 作缓冲区，缓冲区可容纳一万两千个字符，且 
不占用 APPLE SOFT 有效内存。该程序支持所有带有 
语言卡的 APPLE 及其兼容机。程序2为使用本方法的 
示范程序，其中100句为机器码子程序留出空间，第 
110句进行缓冲区初始化，这是程序所必需的，另外， 
每次执行 CALL 38147后，进入写缓冲区方式，而执行 
CALL 38150则重新恢复屏幕显示，并开始打印缓冲数 
据。 

本方法不能用来打印汉字，但可在各种汉字系统 


下运行。 
程序 1 
9500- 

4 C 

09 

95 

4 C 

4 A 

95 

4 C 

E 2 

9508- 

95 

A 5 

36 

8 D 

FC 

95 

AD 

81 

9510— 

CO 

A 5 

37 

8 D 

FD 

95 

A 9 

00 

9518- 

8 D 

88 

95 

8 D 

Cl 

95 

A 9 

DO 

9520- 

8 D 

89 

95 

8 D 

C 2 

95 

A 9 

44 


9528- 

8 D 

FC 

FF 

A 9 

95 

8 D 

FD 

FF 

9530- 

AD 

54 

AA 

C 9 

95 

F 0 

OC 

AD 

9538- 

53 

AA 

8 D 

E 0 

95 

AD 

54 

AA 

9540- 

8 D 

El 

95 

60 

AD 

81 

CO 

6 C 

9548— 

FC 

FF 

A 9 

53 

85 

36 

A 9 

95 

9550- 

85 

37 

60 

8 D 

FE 

95 

48 

8 A 

9558- 

48 

98 

48 

AD 

83 

CO 

AC 

88 

9560- 

95 

AE 

89 

95 

C 8 

DO 

07 

E 8 

9568- 

E 0 

FF 

DO 

02 

A 2 

DO 

CC 

Cl 

9570- 

95 

DO 

0 B 

EC 

C 2 

95 

DO 

06 

9578- 

20 

93 

95 

4 C 

5 E 

95 

AD 

FE 

9580- 

95 

8 C 

88 

95 

8 E 

89 

95 . 

8 D 

9588- 

87 

95 

AD 

81 

CO 

68 

A 8 

68 

9590- 

AA 

68 

60 

AD 

Cl 

Cl 

10 

01 

9598 — 

60 

AD 

83 

CO 

AE 

Q 2 

95 

AG 

95 A 0- 

Cl 

95 

CC 

88 

95 

DO 

09 

EC 

95 A 8- 

89 

95 

DO 

04 

AD 

81 

CO 

60 

95 B 0- 

C 8 

DO 

07 

E 8 

E 0 

FF 

DO 

02 

95 B 8- 

A 2 

DO 

8 E 

C 2 

95 

8 C 

Cl 

95 

95 C 0- 

AD 

CO 

95 

C 9 

8 D 

DO 

02 

A 9 

95 C 8- 

0 A 

29 

7 F 

8 D 

90 

CO 

ad 

81 

95 D 0- 

CO 

60 

48 

8 A 

48 

98 

48 

20 

95 D 8- 

93 

95 

68 

A 8 

68 

AA 

68 

4 C 

95 E 0- 

00 

00 

A 9 

D 2 

8 D 

53 

AA 

A 9 

95 E 8- 

95 

8 D 

54 

AA 

AD 

FC 

95 

85 

95 F 0 — 

36 

AD 

FD 

95 

85 

37 

60 



程序2 

100 HIMEM ： 38] 40 
110 CALL 38144 
120 HOME : J = 0 
130 A = 0： CALL 38150 
140 FOR I = 0 TO 23 
150 A 1% = RND ( I ) * 1000 
160 A = A + A 1%: I %= I /3 
170 VTAB 1% * 2 +5: HTAB (I 一 1% * 3) * 14 + 
5 

180 PRINT CHR $ (I +65) A 1 % 广”； 

190 NEXT : J=J +1 

200 Al % = A /24： CALL 38147 

210 J $= STR $( J )+“ . X =” 

220 A $= STR $( A ) + “ Y =” 

230 IF LEN ( J $ )< 12 THEN J $ =“ ” +J 

$ ： GOTO 230 

240 IF LEN(A $ )<12 THEN A $ = a ” + A $ : 
GOTO 240 

250 PRINT “ N 0 ，，； J $ ; A $ ; A 1% 

260 GOTO 130 
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• 中学生园地 • 


在 APPLE I 上显示时间 

河北任邱华油三中高二 （2) 何东强 


在此之前，曾见到过不少显示时间（将计算机变为 
钟表）的程序，但都觉得不太好，我综合其它程序之优 
点，加以修改，编出了这个程序。 

程序一运行，先是计算，同时响铃60声；之后是画 
图（在高分辦率第一页画出一只没有表针的钟）。以上 
工作完成后，计算机要求输入时间，输完时间，钟的图 
形就完善了，表针指着你所输入的时间，按下任意键 
(只要不按 “N” 键 ） 表针就会走动起来，同时在钟表图 
形的下部还有时间显示，就如同是一只电子表似的。当 
到达半点（或整点）时，会发出一声（或三声）钤声，本程 
序集视，听于一体。 

程序中的 G$=CHR$(7) 是声音输出记号。20 
句开始计算，以供画图时用。30〜50句用来画钟的外 
•形。 55 〜 70句是时间输入。80句先将输入的时间用表 
针指出和用数字显示出来•，之后发出询问 “start — — 
(Y / N ) ? ”这时如发现输入的时间有错，只要按下“ N ” 
键，钟表上的指针就会被擦掉，同时要求重新 输入； 如 
果输入正确，则可对准秒针，按下除 “N” 外的任意键即 
可使表针走动，同时底下用数字显示出时、分、秒。90 
句是将开始时的秒显示置为“00”。 

100 句中的循环变量 K 用来计秒，用 T 来控制走 
时快慢。如若慢了，可迻当减少 T 的循环次数，走快了 
则墙加。 110 〜 160 句用来计算时间，使数字显示及表 
针显示正碲无误。 500 〜 900 句这段子程序用来画表针 
和擦表针，由不同的子程序入口就可以控制画上或擦 
表相应的指针。因为擦去后重画的速度很快，看起来秒 
针就有走动之感。 

时间的数字显示由子程序1000^1800句来完成。 
程序作图利用高分辫率第一页进行。屏幕最下端允许 
四行文本显示。由于时间由变量 A( 时）、 B (分 ）、K+1 
(秒）来控制，当 K 循环至59时必会显示出60来，这就 
与电子表不相符了。因此在这里使用了一个小技 巧：在 
显示之前判断 K 的大小，如果 K = 59, 那么让 K= — 1 
后苒显示出时间，显示完毕后如果 K= — 1，那么让 K 
= 59好完成 K 的揭环。160句完成一个 K 循环之后， 
画好指针后 GOTO 100进行新的循环，从而使时钟不停 
地走动。只要不中断，表可以一直走下去。 

由于本人是在 APPLE I e 型机上编制修改的程 
序，所以本程序也可以在其兼容机1实现。稍作修改也 
可以在其它机型上实现。 

10 G $ = CHR $ (7)： P 2 = 2 * 3. 14159265： DIM 
X (60), Y (60 )：HGR : HCOLOR =3 
20 FOR I =0 TO 59 :Q = (1-15) * P 2 / 60： X ( I ) 
= COS ( Q ) : Y ( I ) = SIN ( Q )： PRINT G $ : NEXT 
: X (60) = X (0)； Y (60) = Y (0) 


30 HPLOT 140 ,1： FOR R = 100 TO 139 STEP 39： 

* FOR I = 0 TO 60: HPLOT TO 140 + R * X ( I )， 
80 +79 * Y ( I )； NEXT : NEXT 
35 HPLOT 59,144： FOR I =0 TO 60： HPLOT TO 59 
+ 8 * X < I ),152 + 8 * Y ( I )： NEXT : HPLOT 
220 ,144 .FOR I =0 TO 60： HPLOT TO 220 -f 8 
* X ( I ),152 + 8 * Y ⑴： NEXT 
40 FOR I = 0 TO 330 STEP 30： FOR J = -1 TO 1 
: Q = (I 十 J ) * P 2/360： HPLOT 140 -f 72 * 
COS ( Q ),80 +72 * SIN ( Q ) TO 140 + 95 * 
COS ( Q ),80 + 77 * SIN ( Q ) : NEXT : NEXT 
50 FOR I = 0 TO 60 ： HPLOT 140 + 72 * X ( I ) ,80 
+ 72 * Y ( I )： NEXT 
55 HOME ： VTAB 21 

60 INPUT “Hour = ”;A : IF A 〈 0 OR A 〉 23 THEN 
55 

65 PRINT “ Minute =” ； 

70 VTAB 22 : HTAB 8： INPUT “ ”; B : IF B < 0 OR B 
>60 THEN VTAB 22： HTAB 8 : PRINT SPC ( 
40)； ： GOTO 70 

80 C =0 : GOSUB 500: K = —1 : GOSUB 1000 : 

PRINT “ Start —— （ Y / N )?” ； ： GET N $ : IF N 
$ = “ N ” THEN GOSUB 700： GOTO 55 
90 PRINT G $ : HOME ： K = — 1 : GOSUB 1000 
: K=0 

100 FOR K = 0 TO 59 ： FOR T = 0 TO 836. 5: 
NEXT : GOSUB 1000 

110 C = K ： IF K - 59 THEN GOSUB 700 ：C = 0： 
GOTO 130 

120 HCOLOR = 0： GOSUB 900： C=K + 1 : GOSUB 
600 : NEXT 

130 B = B + 1: IF 之 = 30 THEN VTAB 23 : HTAB 
1： PRINT G $ 

140 IF B = 60 THEN B = 0 ： A = A +1: PRINT G 
$ ; G $ ; G $ ; 

150 IF A =24 THEN A =0 ' 

160 GOSUB 500 : GOTO 100 
500 A 1= A ： IF A 1 ) 11 THEN A 1 = A 1 —12 
510 A 2 = INT ( A 1 * 5 + B / 12) 

600 HCOLOR = 3 : GOTO 800 
700 HCOLOR = 0 

800 HPLOT 140 + 40 * X ( A 2),80 +40 * Y ( A 2) 
TO 140,80 TO 140 + 55 * X ( B ),80 + 55 * Y 
( B ) 

900 HPLOT 140 + 70 * X ( C ),80 +70 * Y ( C ) TO 
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140,80 ： RETURN 

1000 VTAB 23 : IF A > 9 THEN PRINT TAB( 17)? 
A; “ ：”； 

1200 IF A 〈 10 THEN PlilNT TAB(18 )； A ； 

1300 IF B > 9 THEN PRINT B; 

1400 IF B < 10 THEN PRINT “0 ，， ;B; 

1500 FLASH : PRINT “： ”；： NORMAL : PRINT 
SPC( 2 )： VTAB 23 : HTAB 23 
1550 IF K=59 THEN K=-l 
1600 IF K > 8 THEN PRINT K + 1 
1700 IF K < 9 THEN PRINT “0，，;K + 1 
1750 IF K =.-l THEN K =59 
1800 RETURN 

读者点题.-编者征稿 

问题一： 

1. 什么是 S 类文件。 

2. 如何能将 DOS 3. 3中的 FID 应用于 44 磁道盘中，即如 
何修改 FID 中的有关参数，使之应用于44或扣磁道。 

国營211厂 向建国 

问 题二： 

在 STC 4.0 系统下如何控制 CTRL - C 后的转向？由 STC ， 
4. 0生成的了系统盘不带有汉字输入功能，如何改变这种情 
况？（可否使 CTRL — C 对程序不起作用）。 

上海朱弘 

问题三： 

中华学习机与苹果机系统软件有何异同？ 

陕西成阳交通稽查处来云南 

问 题四： 

关于 C — DBASE 与 DBASE 有哪些不同。 

锦州炼油厂 郭峰 

问 题五： 

请介绍 CEC — IA 机如何使用 CEC — I 机的磁带软件(据 
了解 IA 机的 CEC - I 方式下的 BASIC 解释程序中固化 PLAY 
命令），所以 I 型机的磁带软件不能调进 IA 机。 CEC - Ia 能运 
行 APPLEIE 的80列显示下的软件吗？为什么 CEC 型机不象 
XMF — I 机那样使用汉字系统下 5 X 7 点阵 ASCI 码， CEC-I 
如何象 XMF - I 那样査看游戏磁带软件的首地址及长度。 

天津航道局 谷书阳 

问题六： 

1. PASCAL 系统盘容量增加到磁道如何？ 

2. PASCAL 中数据文件 ( DATD ) 如何建立，存盘，以及取 

盘等？ 上海神州造纸厂 郭世宝 

问题七： 

两台建南机器厂产 JN 55 A 型驱动器，双驱联用时，两台 
驱动器可以分别中。即磁盘该停时停，该转时转，选中指示灯 
也正常闪灭，但两台驱动器磁头却总是一起移动，而不论选 
中与否。致使部分双驱软件，如 DISK MUNCHER 无法使用。 
不知何故？是否驱动器故障？ 

交通部一航局 李连国 


• 中学生园地 • 

汉化 BASIC 语言 

浙江省镇海中学 房程宇 

隨着中文电脑的普及，人们想使用汉语计算机语 
言的欲望越来越强烈。下面就以 APPLE SOFT BASIC 
在 APPLE 及中华学习机上的汉化为例，来谈谈如何汉 
化计算机语言。 

在 APPLE 机上汉化 APPLE SOFT BASIC 必须具 

备相应的软汉字系统，我们对软汉字系统的要求是不 
占用 16 K RAM 卡。如果能自己动手编一个软汉字系统 
专为你的汉化 BASIC 服务自然更佳。下面就由汉化的 
原理谈起， 

让我们先来看一下 APPLE 对 BASIC 解释程序的 
放置。 

$ D 000— $ DOCF BASIC 命令的入口地址 

$ DODO — $ D 25 F BASIC 保留字的字符表 

$ D 260~$ D 364 BASIC 错误信息表 

$ D 365 起 BASIC 解释小程序 

我们汉化的原理就是把字符表和错误信息表转换 
成汉字，我们先来看看字符表的 结构： 

D 0 D 0 45 4 E C 4 46 4 F D 2 

E N D F O R 

可以看出字符表由 ASCII 码组成，并且每个保留 
字的最后一个字符用的是异形 ASCII 码（最高位是1 
的 ASCII 码）。而一般的软汉字系统的汉字构成是（汉 
字标志码 ） + ( 区码）+_(位码），我们只要改 dodo ： 

■ X X (标志码）——（“结”字区位码）——（“束”字区位 
码 ）（ 别忘了把最后一个字符用异形 ASCII 码）这样在 
你列程序的时候就会发现 gND 被“结束”两字代替了。 

难道汉化 BASIC 就这么简单吗？当然不，细心的 
同学也许已经发现，原来的 END 占用了三个字节，而 
汉化 后的“ 结束”两字竟占了六个字节。这里顺便提一 
句，有少数的汉字系统用 ASCII 偏移的方法表示汉字 
(如中文 DOS 2. 0) ,每个汉字只用了两个字节。这样只 
要把在中文系统里无用甚至有害的语句 HGR , HGR 2, 
……等等删去，汉化后的字符就能都填入字符区了。 
(注意，在删去命令字符的同时，别忘了把入口地址■同 
时删去。） 

我们先来读一下 BASIC 的解释程序，然后再谈如 
何改写。一般情况下我们要改动的地方只有一个，就是 
输出部分，入口 S $ FDF 0, 而在软汉字系统下入口已 
经改变，可以从零页$?6$3 7 读出。而原来的 LIST 解 
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释程序在 $D6A5, 而其打印保留字的一段如下： 

D755— 20 2C D7 JSR $ D72C 读一个字符 
D758— 30 D5 BMI $ D757 高位为 1 转到 D75F 
D75A— 20 5C DB JSR $ DB5C 输出这个字符 
D75D^>0 F6 BNE $ D755 转到 D755 
D75F— 20 5C DB JSR $ DB5C 输出最后一个字符 

从字符表读字符子程序 

D72C—CB INY Y+l—Y 

D72D-D0 02 BNE $ D731 如果 Y^O 转 D731 
D72F^6 9E INC $ 9E 一页读完，再加一页 

D731—B1 9DLDA($9D),Y 读到这个 ASCII 码 
D733— €0 RTS 

$9 D 、$9 E 是保留字在字符表中对应的位置，由 LIST 
前一段程序计算得出。 

$ DB5C 是 BASIC 一个输出字符的程序。 


DB5C— 

09 

80 

ORA 

# $80 

DB5E— 

C9 

A0 

CMP 

# $ A0 

DB60— 

90 

02 

BCC 

$DB64 

DB62— 

05 

F3 

ORA 

$F3 


DB64 ： 

20 

ED 

FD 

JSR 

$FDED 

DB67 ： 

29 

7F 


AND 

# $7F 

DB69 ： 

4A 



PHA 


DB6A ： 

A5 

FI 


LDA 

$F1 

DB6C ： 

20 

A8 

FC 

JSR 

$FCA8 

DB70 ： 

60 



RTS 



原输入部分入口在 $ FD 1 B 限于篇幅不详细解释，请同 
学们自己去读一下。 

进入中文系统输入/输出入口被改变（输入入口为 
$3 S $3 9 来设定）。如果你的汉字系统是三字节的，就 
用以下方法： 

第一、将字符区移出来，然后改动 BASIC 解释程 
序输入/输出的部分地址和部分零页地址。 

第二、将标志码省去，就以区码+位码的形式存 
放，并将输入/输出部分程序进行修改加入输出和鉴制 
保留字的部分。 

完成以上工作以后，汉化工作基本完成。有的同学 
不禁会问， APPLE SOFT 将 BASIC 固化在 ROM 里，上 
面提到的几种方法中有的是要改解释程序，这怎么可 
能？其实我们前面已提到过，要求汉字系统把 16K 
RAM 空出，现在我们可以将$ D 000- $ FFFF 的内容 
读入 ROM 再修改，然后锁上 ROM 以 16K RAM 盖住 
原 ROM 。 

在 APPLE 上汉化告一段落：我们来看看如何在中 
伞机上汉化 BASIC , 本杂志前几期已经提到过中华机 
与 APPLE 不完全兼容，特别是 BASIC 解释程序不兼 
容，我们为了方便起见，可以将 APPLE SFOT BASIC 读 
到中华机的 16 K RAM 中再改动，中华机的汉字构成是 


$7 T + (内码区码 ）+ ( 内码位码）。中华机内码国标区 
位码的换算可以通过 USR DC 0 D ( $ C 389) USR EC 0 D 
($ C 39 2 ) 来实现。' 中华机的字符输出程序有两个。 
CSWA ($ C 3 2 B ) 字符用单字节，汉字用三字节 。 GB 
CSWA ( $ C 322 ) 字符用单字节（标准 ASC I 码 ■•) 汉字用 
双字节（异 f ASCII 码）。中华机的中文输入输出入口 
在$«0 3 与 $ C 32 B 。 我们可以自己编写一个输入/输 
出入口然后把地址存在$ 36 〜 $ 39 再实疗一个 STA 
$ C 00 9 STAC 0 8 0 进入中文。新编.的两个程序中每实 
行完一个命令要使它回到系统 ROM 再调用 16 K RAM 
| 卡读有关内容，然后再回到中文。 

另外起有一个办法就是改 CEC — BASIC 的入口， 
除了必要语句外，可以调用原子程序，只要自己编一个 
BASIC 的解释主程序就行了。（不用 16 KRAM 卡.)。 


希望有兴趣的.同学动手试一试，有什么疑问请与 
作者共同探讨。 



• 中学生园地 • 


苹果调色板 

南京市六合一中高■三 （2) ^ \张亚栋 

苹果机和中华学习机的高分辫率图形只有^六种颜 
色。本人编了 一个机器语言 裎序， 可以用这六种基本颜 
色中的任意几种调配成其它颜色，涂满当前高 分辫率 
显示页。方法是输入机器语言程序后，在示范程序中用 
CALL 768, n , Cl , C 2, C 3, ……调机器语言程序。其中 n 

为所用基本颜色的种数, C 1、 C 2、 C 3、. 分别表示所 

用基本颜色的代码（紫色 一1, 绿色 一2, 白色一3,黑色 
一 4, 蓝色 一 5, 检色一 6 )。 

程序（机器码） 


300— 

20 

BE 

DE 

20 

F8 

E6 

86 

FF 

308— 

86 

ED 

20 

BE 

DE 

20 

F8 

E6 

310— 

20 

EC 

F6 

A6 

ED 

A5 

E4 

95 

318— 

00 

C6 

ED 

DO 

ED 

A9 

00 

85 

320— 

26 

A5 

E6 

85 

27 

A9 

00 

85 

328— 

FE 

A6 

FF 

B5 

00 

85 

1C 

A0 

330— 

27 

A5 

1C 

91 

26 

20 

7C 

F4 

338— 

88 

10 

F6 

E6 

FE 

A5 

FE 

C9 

340— 

CO 

F0 

09 

18 

20 

05 

F5 

CA 

348 — 

DO 

El 

F0 

0D 

60 





示范 程序： 

10 HGR 

20 FOR 1=1 TO 6： FOR J=1 TO 6 
30 CALL 768,2,1,J 
40 PRINT 

50 GET K$ : NEXT J,I 
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• 中学生园地 • 


为 CEC — I 汉字系统扩充功能 

贵洲省铜仁一中高二 （5) 马维达 


CEC — I 汉 f 管理程序固化于 ROM 中，不能进行 
修改，使用户无法为其扩充功能。本文提出了一种简便 
方法，可以方便地为汉字系统扩充功能。 

首先，我们进行一下简单分析，在监控管理程序 
中，输入输出是通过 KSW ($38, $39) 和 CSW ($36, 
$ 37) 来与输入管理程序及输出管理程序联接的。在进 
入汉字状态时， KSW 和 CSW 则分别被修改为指向汉 
字输入输出程序$0303及$0328。我们为汉字系统扩 
充功能，一般是在屏幕输出程序 （$ C 32 B ) 部分。因此， 
下面介绍的是汉字系统的 CSW 处理程序。 

如图所示，图中列出的是 CSW 处理程序流程图。 
我们可以清楚地看到，程序的走向完全是由一些标志 
(例如 $3 CA $3 CB 等单元)决定的，换而言之，只要我 
们知道了这些标志的状态，也就知道了系统要干些什 
么，应该执行的是哪一部分程序。知道了这一点，我们 
就可以拦截系统,为汉字系统扩充功能。 

具体 方法; 首先修改 CSW ($ 36, $37)，使它指向 
一个判别程序，若标志与要扩充的部分对应时，则转入 
处理程序，否则就转入汉字系统 CSW 处理程序。 

最后给出一程序，它利用上述方法，实现了造字功 
能。 

先运行程序二再运行程序一进入造字状态。首先 
输入一区位码，然后可用 A 、 Z 、<、[> 控制光标在 一 16 
* 16的方框内移动，按下空格键如光标处无星号则会 
岀现一星号，如有星号此星号消失。这样就可以造出字 
符。造字完毕按下 RETURN 键即可退出。以后可在区 
位输入方式下键入区位码调出此字。 

大家还可以使用以下 命令： 

& RUN 重新进入汉字状态 
& LIST 列出各自造字符及其对应区位码 
& CLEAR 清除所有自造字符 
程序一： 

50010 TEXT ： HOME ： HIMEM ： 32767： DIM X (16, 
16): IF PEEK (32767)>120 THEN PRINT 1 *? 
Out of memory error ”； CHR $ (7 ) : END 
50020 INPUT “ CODE ?”； A $ : AL = VAL(LEFT $ (A 
$ ,2))： AR=VAL ( RIGHT $ (A $ ,2)) 

50025 Z = PEEK (32767) * 2 ：IF Z -0 THEN 1 = 2： 
GOTO 50080 


50030 FOR 1 = 0 TO Z STEP 2 
50040 IF PEEK (36608+ I )<> AL +32 THEN 50070 
50050 IF PEEK (36609 + 1)= AR +,32 THEN AD = 
32768+1* 16 ：GOTO 50090 
50070 NEXT I 

50080 AD =32768 + PEEK 32767) * 32： POKE 36606 

+ I，AL + 32 :POKE 36607 +1 ，AR +32 :POKE 
32767 ,PEEK (32767) + 1 
50090 INVERSE：FOR 1=12 TO 29： VTAB 4 : 

HTAB I : PRINT “ ，，： VTAB 21 ：HTAB I ： PRINT 
“ ，，: NEXT 

50100 FOR 1 = 5 TO 20： HTAB 12： VTAB I ： PRINT 
“”: HTAB 29 ：VTAB I : PRINT “”: NEXT 
50110 H =13： V = 5 ：NORMAL 
50120 HTAB H ： VTAB V：GET K $ ： IF K $ = CHR 
$ (13) THEN 50200 

50130 IFK $=“ ” THEN M = V -4 :N = H -12 :X 
( M , N ) = 1- X ( M , N)：PRINT CHR $ (32+10 
* ( X ( M , N ) = l))：GOTO 50120 
50140 H = H +( K $ = CHR $ (21)) * ( H <28 )-(K 
$ = CHR $ (8)) * ( H >13 ):V = V +( K $ = 
“ Z ”）* ( V <20) — （ K $ =“ A ”）* ( V >5) 
50150 GOTO 50120 
50200 FOR 1=1 TO 16： S =0 

50210 FOR J =1 TO 8：« = S-f 2^ (J 一 1) * X ( I ， J ): 

NEXT J：POKE AD +(2 * 1-2 ),S 
50240 S =0 

50250 FOR J =9 TO 16 : S = S +2 八 （ J 一 9) * X ( I ， J ): 


NEXT J：POKE AD-f (2* I —1 )，S 
50260 NEXT 1：^ RUN 
程序二 


9000- 

A 9 

00 

8 D 

FF 

7 F 

20 

00 

C 3 

9008- 

A 9 

2 B 

85 

36 

A 9 

90 

85 

37 

9010- 

A 9 

FF 

85 

73 

A 9 

7 F 

85 

74 

9018- 

A 9 

4 C 

8 D 

F 5 

03 

A 9 

F 5 

8 D 

9020- 

F 6 

03 

A 9 

90 

8 D 

F 7 

03 

60 

9028- 

EA 

EA 

EA 

20 

DB 

90 

AD 

CA 

9030- 

03 

C 9 

7 F 

DO 

05 

AD 

CB 

03 

9038 - 

DO 

06 

20 

E 7 

90 

4 C 

2 B 

C 3 
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9040- 

20 

AB 

C 3 

20 

E 7 

9(5 

20 

7 D 

90 E 0- 

8 E 

FE 

91 

8 C 

FD 

91 

60 

AD 

9048- 

EF 

85 

D 7 

A 9 

00 

8 D 

CA 

03 

90 E 8- 

FF 

91 

AE 

FE 

91 

AC 

FD 

91 

9050- 

8 D 

CB 

03 

A 5 

24 

C 9 

21 

90 

90 F 0- 

60 

FF 

00 

00 

00 

20 

B 7 

00 

9058- 

14 

20 

8 E 

F 2 

AO 

00 

98 

91 

90 F 8- 

E 6 

B 8 

DO 

02 

E 6 

B 9 

C 9 

BD 

9060- 

26 

C 8 

91 

26 

20 

82 

FI 

20 

9100- 

DO 

06 

A 9 

00 

8 D 

FF 

7 F 

60 

9068- 

AD 

FO 

20 

FI 

F 3 

20 

7 D 

90 

9108- 

C 9 

AC 

DO 

03 

4 C 

05 

90 

* C 9 

9070- 

20 

86 

FO 

20 

B 9 

C 3 

4 C 

E 7 

9110- 

BC 

FO 

01 

60 

20 

8 E 

FD 

AD 

9078- 

90 

EA 

EA 

EA 

EA 

AD 

FF 

7 F 

9118- 

FF 

7 F 

OA 

FO 

F 6 

85 

06 

A 2 

9080- 

0 A 

8 D 

FB 

91 

A 2 

00 

A 5 

D 6 

9120- 

00 

A 9 

7 F 

20 

ED 

FD 

AO 

00 

9088- 

EC 

FB 

91 

BO 

15 

DD 

00 

8 F 

9128- 

BD 

00 

8 F 

48 

D 8 

38 

E 9 

20 

9090- 

DO 

OB 

E 8 

A 5 

D 7 

DD 

00 

8 F 

9130- 

99 

07 

00 

68 

09 

80 

20 

89 

9098- 

FO 

OB 

A 5 

D 6 

CA 

E 8 

E 8 

4 C 

9138- 

C 3 

29 

7 F 

20 

ED 

FD 

E 8 

C 8 

90 A 0- 

88 

90 

4 C 

CD 

EC 

A 9 

00 

85 

9140- 

CO 

02 

DO 

E 4 

8 E 

FC 

91 

AO 

90 A 8- 

ED 

A 9 

80 

85 

EE 

CA 

8 A 

AO 

9148- 

00 

B 6 

07 

EO 

OA 

BO 

05 

A 9 

90 B 0- 

04 

OA 

90 

02 

E 6 

EE 

88 

DO 

9150- 

30 

20 

ED 

FD 

A 9 

00 

8 C 

FA 

90 B 8- 

F 8 

18 

D 8 

65 

ED 

85 

ED 

AO 

9158- 

91 

20 

24 

ED 

kC 

FA 

91 

C 8 

90 C 0- 

IF 

B 1 

ED 

99 

DO 

94 

88 

10 

9160- 

CO 

02 

DO 

E 5 

A 9 

03 

20 

48 

90 C 8- 

F 8 

A 9 

00 

8 D 

FO 

94 

8 D 

FI 

9168- 

F 9 

AE 

FC 

91 

E 4 

06 

90 

B 】 

90 D 0- 

94 

38 

60 

8 D 

FI 

94 

38 

60 

9170- 

60 








90 D 8- 

EA 

EA 

EA 

29 

7 F 

8 D 

FF 

91 
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• 实验与制作 • 

《微机小系统学习开发实验箱》简介 

在我国发展高科技产业的过程中，人们越来越迫 
切地要求掌握微机的基本知识与技水。他■们不满足于 
了解一点高级语言的知识，还希望了解硬件的一些基 
本知识，并掌握一点基本的技能。为了满足这种愿望与 
要求，我们设计了_这个微机小系统学习与开发 钤实验 
« 。 

历史上，我们曾洤通过组装来培养硬件的基本技 
术人员，使他们把书本知识与实际经验统一起来，成沒 
各个技木岗位上的有用人才。今天，对于初学者来说， 
只从书本上去理解微机仍是十分艰难的。在学习书本 
知识的同时，辅之以一系列的实验就会使他们摆脱困 
境。在学 •习中 ，自己动手进行组装调试，一点一点地把 
系统建立起来，不仅能使概念变得直观而清晰，而且 '能 
培养实际操作的一些基本技能。这既是教师的愿望，也 
是学生的要求。但这需要一个可以动手的环境，设计这 
个实验箱就是为了创造这烊一个环境。所以实验箱设 
计成自身封闭的，它带有两组 5 V 电源，一个能产生连 
续脉冲、正负单脉冲与三个电位信号的脉冲源，还带有 
一个简 单的测试笔，能在与 TTL 兼容的范围内测出脉 
冲的存在，并分辨出它们的正负或确认为单脉冲'<■使用 
实验箱时，只需插接 220 V 市电就可以开始工作。 

在 50 年代，人们组装调试计算机时，主要依靠示 
波器。在今天，大规模数字集成电路的时代,组装调试 
计算机主要依靠数字的故障诊断技术，而这种技术也 
是理解系统如何工作的重要手段。为了从小系统组装 
伊始，就能把对硬件结构的理解与故障诊断结合起来， 
实验箱不带任何监控_程序，而是通过一块租序置入板 
让学习者置入和运行自己的程序，使之对系统的工作 
状态获得直接的了解。而且这块板在一定程度上是通 
用的，可以在几个系统中使用。 

试验箱米取积木式结构，程序置人板，系统板，护 
展板是分离的。这样，实验箱可以适应多种系统的实验 
要求。现在的系统板是 Z80 的与单片板 8031 的，未来 
还可望提供更多的系统板。护展板与系统板分离为使 
用者提供了较大的活动空•间，使得教师与学生可以去 
做自己想做的实验，同时也使实验箱成为一个简易的 
开发装置，可以用它来进行简单应用的开发。程序置入 
板上留有插接位置，未来通过一个接 o 与其他微机系 
统连接后，可使开发实验更方便、有效。 

实验箱带有一套使用手册，分为数字电路的基本 
实二验， Z80 小系统与 8031 小系统三部分，并附有 Z80 


指令系统与8031指令系统便查表。这套手册对教师是 
组织实验的参考手册，对自学者是一本基本教材。 

实验箱只提供了最基本的实验器材，比较专门的 
实验要求教师用护展板来 添加。 这主要是为了在保证 
最基本的实验条件下，尽可能降低成本。同时也给教师 
为自己的教学需要留下开拓余地。 

我们竭成欢迎大专院校的实验室、职中的实验室 
与有志于微机技术应用的人选用。 

广东教育学院计算机■室丁有豫邓林生 

• 通讯报道 • 

成杲征集颁典暨应用学组成立 

1990 年 11 月 8 〜 10 日，北京计算机五厂在香山 
炮兵礼堂举行了第一届“天坛杯”应用成果征集颁奖暨 
天坛机应用学组成立大会。 

参加会议的有 :专家 、学者、大专院校的教师及中 
学教师，计算机经销单位的经理等 300 余人。机械电子 
部微机处处长于万源，北京市科委副主任陈秉义，北京 
市政府电子工业办公室副主任周慎培等领导同志，到 
会并为获奖者颁奖。国务院电子信息系统推广应用办 
公室计算机应用二组组长陈正清，给大会发来贺信，表 
示 对这些有意义的活动将给予积极的支持。 

这次天坛杯应用成果征集活动，是由北京计算机 
五厂与香港快能发展有限公司合作举办的，其目的是 
把众多的天坛学习机用户所开发的应用成果，集中起 
.来，经过进一步优化再推向社会,使其更有效地发挥作 
用。由专家和学者组成的评审委员会，经过认真评审， 
评选出一等奖一名，二等奖四名，三等奖五名，参加评. 
审的所有成果均获得了纪念奖。 

为使广大用户和生产厂家有一个勾通信息相互交 
流的场所和组织，“天坛学习机应用学组”于 U 月 9 曰 
宣告成立，会上宣布了组委会成员名单，学组章程和活 
动 计划。 

会议期间，与会人员还参观了北京计算机五厂的 
新品展示。天坛合成音乐系统等优秀软件、“天坛” 
TVZ — 1型视频切换彩色字幕叠加机等新开发的产 
品，引起了与会者的极大兴趣。 

通过开展“天坛杯应用成果有奖征集”活动，不仅 
可以集中起广大用户的智慧，提高天坛机的使用瑋率 
和应用水平，而且对生产厂家从技术上改进并完善天 
坛学习机，也是一个促进，同时，加强了用户和厂家的 
联系和交流，提高了厂家和产品的知名度。 

北京计算机五厂的领 导说: 以后，每年搞一次天坛 
杯应用成果有奖征集活动。 

(本刊记者） 一城 
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• 实用程 序 • 


对“卡方检验实用程序”的改进 


蚌埠医学院蒋建一 


本人蛀应用《苹果园》1989年第6期李阳宇的《卡 
方检验实用程序》一文所附程序时，发现该程序中有几 
• 处错误。对此本人在其基础上重新编制了 一个新的“卡 
方检验实用程序”。 

原程序中几处错诶所在及修改步骤（有可能是出 
版校对的错误）。 

1•原程序第 2 M 语句行 1 NT 后少了个左括号，应 
加上个“（”。（注以下简称程序行为某行） 

2. 筆 420行 S — ABS ( A ( 1，1) * A (2,2)— A ( l ，2) 
* A (2， l ) 一 N /2 〆 应改成 S = ABS ( A (1,1) * A (2,2) 
一 A ( l ,2) * A (2， l ))— N /2 〆 

3 . 第 1040 行 FOR 1=1 TON : Z (1)- F ： Z (2) = Z 
(2)+ F ： Z (3)= Z (3)+ F ： Z (4)= F ： Z (4)= Z (4).-] E ?i g 
改成 FOR 1=1 TO N ： Z (1) = Z (1)- F ： Z (2)= Z (2) + 
F : Z (3)= Z (3)+ F : Z “）= Z (4)— F〆 。 

4 •第 1240 行 Q == INT CEXP (M * 10000'+. 5) / 
10000: P = P +0:0 = 0+1 : PRINT “ P %( V ‘ = ”0 〆 应改 
成 Q = INT ( EXP ( M ) » 10000+0. 5)/10000: P = P + Q : 
0=0+1：? “ P ”;0 ; “ = ” ; Q。 〆 

5 •第 300 行 IF T ( I ， J )<5 THEN E = E +1 : NEXT 
V 应改成 IF T ( i ， J )<5 THEN E = E +1 〆 再将第 310 
语句行改为 NEXT:NEXT〆 原因是当程序按照原 300 
语句行运行时，若理论频数 T ( l ，2)<5 或 T (2,2).<5 
时都不能被该程序的 _ 28 0 行至 310 行的语句段所检 
出，故也就无法转入 UO 行做相应的校正计算。 

6•第 1180行 V = 1 , FOR J = 1 TO N ： V = V * J ： 
NEXT J〆 该行语句为计算 N 的阶乘 （ N !), 但虫 N 大 
于 33 时，在 APPLE 1 I 或中华学习机上均会产生数溢 
出.的错误>> 这就同原文中规定的当 N <40 时直接求概 
率的要求相矛盾。即当 33< N <40 时程序会在1180 
行发生数溢出错误而中断。解决的办法有两种：①直接 
减少 N 的判断范围，将第320行改为 IF N <34 THEN 
950 〆 这样改后只有当 N <34 时才能转950行直接求 
概率值 • ②为了不影响统计条件，保证当 N <40 时都 
能正确地求出概率值，本人从数学表达式上入手，对原 
式加以变形。在不增加语句行的前提下，达到■了上述要 
求。 已知求 P 值的公 式为： 

p ( a + b )； ( c + d )； ( a + c )! ( b + d )! 
a | b ] c ] d | Nj 

又知 N =( a + b ) + ( c + d )。 故可以在计算 N ! 时先 


约去 N ! 中的 ( a + b )! 部分，则 


p= _ (c+d)! (a+c)l (b+d)! _ 

—a! b! c! d! N * (N—l)(N-2) …… （N — （a+b) + l) 

通过变形，使得 N ! 少乘了 (a + b )! 的部分，所以也 
就不会发生溢出错误了。将上述变形后的数学表达式 
落实到程序中，只需将第1150行改成 FOR 1 = 2 TO 4 
〆 。第 1180行改成 V = l : FOR J = D (1) + ] TON：V = 


V * J : NEXT〆 便可。另外原程序还有一些不足之处, 
如没有输出打印 功能; 数据的输入屏幕效果不 直观; 在 
作行 X 列表卡方统计时仍需要用户去査卡方表，故而 


带来许多不便。对此本人对原程序增设了输出打印功 


能;完善了数据的输入 效果; 对于行 X 列表卡方统计可 
以作自由度在 2 0以内的 V 统计数直接分析等。另外 
本程序增加了一个参考值 _ C ( 联列表校正相关系数）。 
C= / X2 

V N . min ( ROW — 1 或 COL — 1) 

注: ROW 为行数， COL 为.列薮，公式中 ROW 和 
COL 哪个小便用哪个。 C 参数的意义同相关分析中的 r 


参数。该程序适用于中华学习机 ( CEC - I ) 中文系统。 


程序应用 说明: 


按程序清单输入全部程序，在中文系统下运行之。 
该程序数据输入非常方便，且与所打印出的数表保持 
一致，屏幕效果直观。数据输入中能自动检测所键入的 
字符，若不是数字则不予理采，按下空格键表示该项数 
输入完毕，光标自动跳到下一个表格栏内等待输入 。按 
—键可修改当前输入项的数据。数据输入完毕,所输入 
的数据、计算结果及判断结果均显示于同一屏中。这 
B 寸，按 CTRL — P 则打印输出统计表。按 CTRL-Y 则清 
除表格数据让你继续进行该类统计。按其它键则返主 
菜单。 

10 H6R2 : L0MEM： 24576： REM 计算 X2« 序 
15 G0SUB 20: GOTO 60 

20 DIM 义<20，1>: FOR I * 1 TO 20: FOR J a 0 TO 1： 

READ V<I,J>: NEXT : NEXT 

30 DATA 3.84,6..63,5.99,9.21,7.81, 11.3H49, 13.28 
,11.07,15.09,12.59,16.81，14-07.18.48,15.51,20.09,1 
6.92,21.67,18.31，23.21， 19.68,24.72,21.03,26.22,22. 

36, 27. 69, 23. 68, 29. 14,25, 30 ， 58,26.30,32 ? 27.59,33.41 
*28.87,34.81,30.14,36. 19, 31 ， 41,37.57 
40 PI* = "P>.05 荖异无 fi 著性 ••: P2$ "P<.01 躉 

异有裏度*著性••: P3$ = M P< • 05 差异有 fi 著性" 

50 » ••四椹表卡方统计••: A2, = ••行 x 列表卡方 统计" 

:A3$ ，"合计" 

55 RETURN 
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60 HOME : IF PEEK <942> > 1 THEN PRINT CHR$ <1 
8 〉： POKE 230 ， 64: HCOLOR= 3 

70 VTftB 2 ： HTAB 10 ： PRINT ••计 算卡方 <X2 〉 <g_ ••: PRI 
NT 

80 PRINT TAB< 6>〆 •<!〉 -JAlt ： PRINT TAB< 6 〉广 
<2 〉 "JA2$: PRINT TAB< 6>l"<0> 结束 " 

90 HPLDT 35*42 TO 230,42 TO 230,110 TO 35,110 TO 
35, 42 

100 VTAB 9 ： HTAB 10: PRINT ••输 入 <0 〜 2>**» : GET 
K$：K » VAL <K $>： IF K$ * "0" THEN END 
110 ON K GOTO 1000， 2000 
120 PRINT CHR$ <7 >： GOTO 100 
140 HPLOT 40,Y<V> TO 238*Y<V >： RETURN 
150 VTAB 8 ： HTflB 3 ： PRINT ,, X2» , *iX2i ：Y «= 1 ： PRINT 

- "t 

160 IF X2 < V<Y ， 0> THEN PRINT PUl : GOTO 190 
170 IF X2 > V(Y» 1> THEN PRINT 92% i : GOTO 190 
180 PRINT P3$i 

190 GET XX $： IF XX* * CHR$ <16> THEN TEXT : HOM 
E : PRINT : PRINT C.HR$ <7 >： PR« 1 ； POKE 1913»2 ： P 
RINT CHR$ <17 〉： PRtt 0 ： PR» 3 ： PRINT : END 
200 IF XX$ = CHR» <25 〉 THEN RETURN 
210 POP : CLEAR s GOTO 15 

220 V = 5：H » 26: VTAB V ： HTAB H ： PRINT D<1>* : GOS 
UB iae：V » 6 ： VTAB V ： HTAB H ： PRINT D(2)l ： GOSUB 1 
40 

230 V = f ： VTAB V: HTAB 10 ： PRINT D<3>l : HTAB 18 ： 
PRINT D<4>l ： HTAB 26 ： PRINT N ： GOSUB 140 ： RETURN 
1000 DIM ft(2»2>»D<4)»G<2),X<4>»Z<a>»T<2»2 >： HOME 
1010 VTAB 3 ： PRINT TAB< 10>iAi*: VTAB a ： HTAB 4 ： 
PRINT .• 姐俐 HTAB 4: PRINT HTAB 4 ： PRINT 

•*—. ••: HTAB 4 ： PRINT A3$ 

1020 VTAB 4 ： HTAB 11 ： PRINT *'( 1 > <2 〉 "l: HTAB 

27 ： PRINT f\3ti 

1030 FOR I - 3 TO 7 ： Y<I) = I * 17 - 1 ： HPLOT 18, Y 
(I> TO 252, Y ⑴： NEXT 

1040 HPLOT 18»Y<3> TO 18 ， Y<7>: HPLOT 252 ， Y<3> TO 
252 ， Y<7>:H * 60 ： HPLOT H ， Y<3> TQ H,Y<7>iH = H + 64 
: HPLOT H,Y<3 〉 TO H,Y<7>：H = H + 64 ： HPLOT H,Y(3> 
TO H,V<7> 

1050 V = 5：H = 10:S* ="" 

1060 FDR I = 1 TO 2 ： FOR J = V TO 2 
1070 VTAB V ： HTAB H ： GET FS ♦: IF FS* > - "0" AND 
FSt < » "9" THEN PRINT FSti : GOSUB ia0 ： S$ = S$ 

+ FS$：H » H ♦ 1 ： GOTO 1070 


1080 

gqsub iae 



ll090 

IF FS，=' 

，•- THEN PRINT " “i 

i : GOSUB 140： IF 

J = 

1 THEN H * 

9 * 2： GOTO 1130 


1180 

IF FS* =' 

'* ** THEN H = 10：V = 

V ♦ 1: GOTO 113 

0 

1110 

IF FS% * 

CHR$ <8> THEN IF 

LEN <S$> > 1 TH 


EN H = H - 1 ： S$ = LEFT 拿 <S 京， LEN <S$) - 1>: GOTO 
1070 

1120 PRINT CHRt (7>l ： GOTO 1070 
1130 A<I ， J> « VAL <S* 〉： S* * •• ••: NEXT : NEXT 
1140 FDR I « 1 TD 2 ： FOR J = 1 TO 2 
»150 N = N ♦ A<I ， J〉：C * C f 1 ： X<C) - A<I*J> ： Z<C> * 
X<C) ： D<I> = D<I> ♦ A<I*J) ： G<J) = 6<J) + A<I ， J> 
1160 NEXT : NEXT 
1170 D<3) = G<l> ： D<a> = G<2> 

1180 T = INT <D<1> * D<3> / N * 100 十 -5) / 100:T 
Z = PBS <X<1) - T> 

1190 T<1»V> = T:T<1 ， 2〉= D<1) - T:T<2 ， 1〉= D(3> - 
T:T<2,2> » D<2> - T<2 ， 1> 

1200 FDR I » 1 TO 2 

1210 FOR J - 1 TO 2 ： IF T<I>J> < 1 THEN 2630 

1220 IF T<I ， J> < 5 THEN E * E + 1 

1230 NEXT : NEXT 

1240 IF N - < 40 THEN 2630 

|l250 IF E > * 1 THEN 1300 

1260 S = <A<1) ♦ A(2»2> - A<1»2> * A<2*1>> ^ 2 


1270 0 » <AU ， 1〉♦ A<1,2>> * <A<2»1> + A(2*2>> ♦ < 

A<hl) ♦ A<2 ， 1>〉* <A<1,2> + A<2,2>> 

1280 X2 = S * N / 0 
1290 GOTO 1330 

1300 S » ABS <A<M> ♦ A(2/2> - A<1,2) * A<2, 1>> 

-N / 2 

13T0 0 = <A<M> + A<1,2〉> * <A<2>1) + ft<2.2>> ■*> < 

A<1.1〉♦ A<2，1>> * <A<1»2> + A<2,2>> 

1320 X2»S-2*N/0 

1330 X2 « INT <X2 ♦ 100 十 .5) / 100 

1340 GOSUB 220 

1350 GOSUB 150 ： CLEAR 

1360 GOSUB 20 ： GOTO 1000 

2000 HOME : PRINT : INPUT •• 行 VTAB 2 ： HTA 
B 12 ： INPUT " 列数 * INT <30 / C> 

2010 DIM A<R ， C) ， W<R> ， G<C> ， T<R,C> 

2020 FDR I = 1 TG R ： U<I> > 0 ： NEXT : FOR K = 1 TO 
C ： G<K> = 0 ： B(K> = 0 ： NEXT 
2030 U = 0：N = 0 

2040 FOR I = 1 TO R + 3 ： V<I> « I * 17 - 1 ： NEXT 
2050 HOME : V = 2 ： HTAB 10 ： PRINT A2 拿 
2060 « * FOR I = 1 TD C 

2070 VTAB 2: HTAB H ： PRINT "<••>I»••〉••》:H = H ♦ HI: 

NEXT 

2080 FOR I = 1 TO R:V * V + 1 ： VTAB V ； HTAB 1 ； PR 
INT iryn NEXT 

2090 HPLOT 0»Y<1> TO 279*Y<1> ： HPLDT 0，Y<2> TO 27 
9,Y<2〉 

2100 V = 2:H = a：s$ * *• ** 

2110 FOR I = 1 TO R：V = V + 1： FOR J » 1 TO C 

2120 VTAB V: HTAB H: GET FS $： IF FS$ > = AND 

FS* < = • ， 9 M THEN PRINT FS$i ： S$ « S$ FS*：H * H 

+1: GOTO 2120 

2130 IF FS$ = M •* THEN PRINT •• ••»: GOTO 2160 
2140 IF FSt = CHR, <8> THEN IF LEN (St) > 1 TH 
EN H = H - 1= LEFT 拿 (S$， LEN <S，〉 - 1〉： GOTO 
2120 

2150 PRINT CHR, <7>i： GOTO 2120 

2160 H = H + 1 + HI - LEN = VAL (St) 

:S$ = •• ••: NEXT : H = 4 ： NEXT 

2200 FOP I = 1 TO R ： FDR K = 1 TO C 

2210 UI(I> = U(I> A<I ， K>:G<K> = G<K> + A<I ， K>:N = 

N + A<I»K) 

2220 NEXT : NEXT : HPLOT 0 ， Y(R + 2> TO 279»Y<R ♦ 

2) 

2230 FOR I = 1 TO R： FOR J * 1 TO C:T<I，J〉 * INT 

<W<I〉* G<J) / N ♦ 100 -5) / 100 

2540 IF T<I,J> < 1 THEN 2580 

2550 IF T<I,J> < 5 THEN E = E 十 1: IF E > INT 〈L 

♦ H / 5 * 100 + .5)/100 THEN 2580 
2560 NEXT J，I 
2570 GOTO 2590 

2580 PRINT : PRINT •• 已有 1/5 以上的理论败小于 5, 或 1 

个理论败小于 U 谓合 并后再统计. ••： end 

2590 M > 0 ： FOR I * 1 TO R： FOR K - 1 TO C:M * M + 

<ft<I，K> * A<I,K〉〉 / <U<I> ♦ 6<K>)： NEXT K，I 
2600 X2 - N * <PI - 1〉：X2 = INT <X2 ♦ 100 + 0.5〉/ 

100 

2610 PRINT : PRINT "X2=._ ， X2i" "I: IF R >.C THEN R 
1 = C - 1 ： GOTO 2615 
2613 R1 = R - 1 

2615 PRINT •• C = "f INT ( SQR <X2 / N / Rl> ♦ 10 
00 十 .5〉 / 1000J" N * ";N 

2620 Y - <R - 1> ♦ <C - O- IF Y > 20 THEN PRINT 
•• 请査自由度为 •• 以广的 卡方表 GOSUB 190: CLEAR : 

GOSUB 20 ： GOTO 2000 

2625 GOSUB 160 ： CLEAR * GOSUB 20 ： GOTO 2000 
2630 GOSUB 220: GOSUB 2790 

2640 GOSUB 2840 (下转 ？】 页） 
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• 实用程序 




图形表的制作与使用 

黑龙江呼兰师专吴全有 


图形表是动画技术的重要组成部分，这种方法可 
以使一个或多个图形作快速移动或变化，其特点是显 
示速度较通常的划点语言 (HPLOT) 快得多，因此在动 
画设甘中得到广泛使用。其方法是将绘制图形各点的 
移动方向用图形向 量记录 下来，制作一个图形表存入 
内存中某一区域，使用时用专门语句使图形显示出来。 

本文重点介绍图形表的制作方法。人们在制作图 
形表时，常常由于存放地址安排不正确，使图形显示不 
完整，为解决这个问题，文中对图形表存放地址全部采 
用简便的公式进行计算，使之准确无误。同时对使用.图 
形表的语句也做了简介，并以实用角度出发，提供了制 
作图形向量的工具程序。 

一. 图形向量的表示方法 

图形向量用三位二进制数表示，第一位表示画点 
(为 1) 或不画点（为 0), 后两位表示移动方向：.向上为 
00,向右为01,向下为10,向左为11。一个字节为八 
位，每个向量连续存放，先填右三位，再填中三位，对于 
左二位也可存放一个不画点的向量。如果是画点的向 
量，则补0,并在下一字节的右三位存放，这样就将画 
点的过程转换成字节的数值。整个图形画完，最后要填 
一个全0字节，做为结束标志。（顺便指出，画图起笔点 
最好在图形中心处开始，这对于制作游戏程序判断两 
个图木是否相遇很有用）。然后再将每字节的二进制数 
转换为十进制数。 

二. 图形表的制作与存放 

用上述方法可以分别求出若干个.图形的数据，然 
后将其存放在内存中某一地址开始的单元里，这一地 
址叫做首地址，一般取十六进制的6000,即十进制 
24576 0 数据的存放形式如图一所示。从首地址 S 到 S 
+ 2 N +1 存放索引信息，即图形个数及各图形数据与 
S 的偏移量。其中 S 中存放图形个数 N , S +1 置 0， S + 

2与 S +3 存放一号图形数据区首地址与 S 的偏移量 
Dl ， S +4 与 S +5 存放2号图形的偏移量 D 2, 以下类 
推，至 S + 2 N 与 S + 2 N +1. 为 N 号图形的偏移量 Dn 。 
接着 S + D 1 至 S + D 2-1 为1号图形的数据区，然后 
是2号至 N 号图形数据区。 

为计算方便起见，这里给出索引项偏移地址的计 
算公式 如下： 


地址 十进制数 

S 

S +1 
S +2 
S +3 
S +4 
S +5 


S +2 N 
S +2 N +1 
岑 + D 1 


S+D2 


S+D 


S+D n +M n — 1 


图形表的存放 


1号图形与首地址 S 的偏 移量： D 1 = ( N +.1) X 2。 
其余图形偏移量的计算公 式为： D(i + l ) = Di + Mi , 即 

D 2 = D 1+ M 1, D 3 = D 2+ M 2. Dn = D ( n —1)+ M(n 

—1)。 式中 ： S = 24576 ， N 为图形个数, Mi 为 I 号图形 
数据个数（即字节数，由绘制图形向量程序打印给 出）， 
i 为 （1 〜 N )。 由上式计算出的 Di 值为十进制数，其高 
位和低位的值用下式计算 ：高位 D h = INT ( Mi /256 ) ,低 
位 D L = Mi — 1^ X 255。程序二是一个小人跑动的示例， 

并伴有跑动的脚步声。该.程序有三个图形 , Ml = 25, 
M 2 = 23， M 3 = 24, 按上述公式求得： Dl = 8, D 2 = 33, 
D3 = 56 0 程序中 2 0行的 79 是由公式 T =( Dn + Mn - 
1) 求得的，40语句给出了三个图形的索引信息。至此‘ 
完成了图形表的编制与存放工作。 

当一个动画程序所用的图形较多时，为.免去输入 
大*数据的工作’，可将构造的图形表以磁盘形式存贮 
起来，根据需要依次调入内存使用。存贮时使用如下命 


N 

0 

低位 

高位 

低位 

髙位 


低位 

髙位 

首字节 


o 

首字节 


o 

首字节 


o 


图形个数 （0 〜 255) 


1号图形 
数据区 


2号图形 
数据区 


N 号图形 
数据区 
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令： 

BSAVE 图形表名， A 起始地址， L 数据长度。其中 
图形表名可用 T 1〔 T 2、 T 3 等，起始地址为 Pi ， 辦: 据长度 
为 Mi 。 调用时用 BLOAD 图形表名即可，必需将索引 
信息存入首地址 S 至 D 1 — 1的单元中。 

三.图形表的使用 

图形表存入内存>，要使項它，应先进入高分辨率 
作图状态，然后将首地址 S 值送入232和233号单元。 

1 .画图 形语句 DRAW N AT H ， V 用 HCOLOR 设 
定颜色后，就可使用该语句在屏上显示出图形了。语句 
中 N 为图形代号，用1，2,3表示， H ， V 为显示图形的 
横、纵向座标值。当 HCOLOR = 0 时，使用该句可将图 
形擦掉（顺便指出，虽有 XDRAW 语句，也可抹掉图 
形，但抹得不彻底，应慎用）。 

2. 图形放大语句 SCALE = X ， X 值取1〜烈5,表 
示放大倍数。 

3•旋转语句 ROT = X 。 随 X 值增加图形按顺时 
针方向旋转一定角度。当 SCALE =1 时， X 值取0，1 6 , 
32,48四 个值； 当 SCALE =2时 ，X 值可取0,8,16,24, 
32,40,48,56八个值，以此类推。 

四.绘制图形向量程序的使用方法 

该程序运行后，在屏中央显示一个闪动小点，等待 
键盘输入，键盘上的 I 、 K 、 M 、 J 四个键分别表示向上、 
向右、向下、向左移动并划点; W 、 S ; Z 、 A 四个键分别表、 
示向上、向右、向下、向左移动不划点。键入其它键发出 
嘟声以示无效，％入结束时按 E 键（抹掉该点），经短 
对间计算后，将图形向量转换成十进制数，并求出数据 
个数 M (字节数），然后屏 i 重新显示二遍所绘的图形 
(如显示不正确，应改变绘图路径重新画），按任意键 
后，打开打印机，便将数据个数和数据值打印出来。 
程序一绘制图形向量 
10 - C $ = CHR $ (7) . 

20 DIM S (440)， V (440) 

30 1=1 ： B = 0 ： Q =1 

40 HGR : HCOLOR = 3； X == 140 ：Y = 80 

50 PRINT “ HUATU ” 

60 GOSUB 300 

70 IFP $ < >“ E ” THENS ( I ) = M：I 由 I + 1: GO ¬ 
TO 60 

80 TEXT : HOME 

90 FOR V = 1 TO I + 3 

100 IF B =2 AND S ( V ) < 4 THEN 130 

110 IF B < 2 THEN 130 

120 B = 0： Q = Q +1 

130 V ( Q ) = V ( Q ) 4 - S ( V ) * (8^ B ) 

140 B = B + 1 


150 IF B >2 THEN B =0 ：Q = Q +1 
160 NEXT V 

170 TEXT : HOME : GOTO 2000 
180 TEXT : HOME 

190 PRINT : PRINT “ ON PRINTER !”： PRINT 
200 PR # 1 

205 PRINT “BYTE VECTOR 
210 PRINT “BYTE VECTOR ” 

220 T = INT (( Q + l ) /2) 

230 FOR V = 1 TO T 
240 GOSUB 800 

250 PRINT N 1 $ ；： HTAB (8)： PRINT V $ 1; 

260 IF Q /2 < > INT ( Q /2) AND V = INT (( Q + 
1)/2) THEN PRINT : GOTO 290 
270 HTAB (18)： PRINT N 2 $ ； ： HTAB (25)： PRINT 
V 2$ 

280 NEXT V 
290 PR # 0： END 
300 PRINT “ VECTOR : ”；I 
310 POKE 49168,0： GOSUB 1000 
320 IF P $ =“ I ” THEN M = 4： GOTO 1100 
330 IF P $ =“ K ” THEN M = 5： GOTO 1400 
340 IF P $ =“ M ” THEN M = 6： GOTO 1200 
350 IF P $ =“ J ” THEN M = 7： GOTO 1300 
360 IF P $ =“ W ” THEN M = 0： GOTO 1700 
370 IF P $ =“ S ” THEN M = 1： GOTO 1600 
380 IF P $ =“ Z ” THEN M = 2： GOTO 1800 
390 IF P $ =“ A ” THEN M = 3： GOTO 1500 
400 IF P $ =“ E ” THEN HCOLOR = 0： HPLOT X ， 
Y ： POKE 49168,0： RETURN 
410 PRINT C $ : GOTO 310 
800 E $ = STR $ ( V ) : ^OSUB 900： N 1 $ = E $ 

810 E $ = STR $( V ( V ))： GOSUB 900 ：VI $ = E $ 
820 E $ = STR $ (V + T )： GOSUB 900： N 2$ =E 
$ 

830 E $ = STR $( V ( V + T )) ： GOSUB 900： V 2$ = 
E $ 

840 RETURN 

900 IF LEN ( E $ ) + 1 THEN E $ =“ ” + E $ 

910 IF LEN ( E $) = 2 THEN E $ =“ ” + E $ 

920 RETURN 

1000 P = PEEK (49152) 

1010 IF P > 127 THEN P $ = CHR $ ( P -128): 
RETURN 

1020 HCOLOR = 3： HPLOT X ， Y 
1030 HCLOLR = 0： HPLOT X，Y 
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1040 HCOLOR = 3： HPLOT X , Y ： GOTO 1000 
1100 HPLOT X，Y 
1110 Y = Y - 1 

1120 IF Y < 0 THEN Y =159： PRINT C $ 

H 30 RETURN 
1200 HPLOT X，Y 
1210 Y = Y + 1 

】220 IF Y > 159 THEN Y = 0： PRINT C $ 

1230 RETURN 
1300 HPLOT X，Y 
1310 X = X - 1 

1320 IF X < 0 THEN X =279： PRINT C $ 

1330 RETURN 
1400 HPLOT X，Y 
1410 X = X -f t 

1420 IF X > 279 THEN X = 0 ：PRINT C $ 

1430 RETURN 

1500 HCOLOR = 0： HPLOT X，Y 
1510 X = X - 1 

1520 IF X < 0 THEN X = 279： PRINT C $ 

1530 HCOLOR = 3： HPLOT X，Y 
1540. RETURN 

1600 HCOLOR = 0 ：.HPLOT X,Y 
1610 X = X + 1 

1620 IF X > 279 THEN X =0： PRINT C $ 

1630 HCLOLR = 3： HPLOT X,Y 
1650 RETURN 

1700 HCLOR = 0： HPLOT X,Y 
1710 Y Y - 1 

1720 IF Y < 0 THEN Y = 159 ：PRINT C $ 

1730 HCLOLR = 3： HPLOR X,Y 
1750 RETURN 

1800 HCOLOR = 0： HPLOT X ， Y 
18] 0 Y = Y + 1 

1820 IF Y > 159 THEN Y = 0： PRINT C $ 

1830 HCOLOR = 3. HPLOT X，Y 
1850 RETURN 

2000 HGR : SCALE = 1： ROT = 0： HCOLOR = 3 
2010 POKE 232,0: POKE 233,96 
2020 FOR I = 1 TO 4 
2030 READ D 

2040 POKE 24575 + I , D ： NEXT 
2 腳 JRDR J JO O 
2060 POKE 24579 + I , V ( I )： NEXT 
2065 POKE 24580- fQ ,0 
2070 DRAW 1 AT X,Y 


2080 GET P $ 

2090 GOTO 180 
2100 DATA 1,0,4,0 
程序二 ： 

5 S =24576 

10 HGR 2： POKE 232,0： POKE 233,96: SCALE = 1 
ROT =0 ' 

20 FOR 1 = 0 TO 79 
30 READ D ： POKE S + I ， D : NEXT 
40 DATA 3,0,8,0,33,0,56,0 
45 DATA 46,13,61,28,39,44,60,52,55,62,30,55 
50 DATA 47,13,54,62,63,45,37,37,46,54,46,36. 
.0 

55 DATA 254,43,40,40,36,37,46,62,54,46,21 
60 DATA 61，23,62,60,52,54,62,60,37,36,7,0 
70 DATA 36,37,39,62,54,62,55,47,13,45,37,62 
80 DATA 55,46,46,62,36,63,52,55,55,62,36,0 
90 V =170 ：H = 40： D =0 

100 HCOLOR = 3： DRAW 1 AT H , V ； GOSUB 200 
110 HCOLOR = 0： DRAW 1 AT H ； V ： H —' h +5 
120 HCOLOR = 3： DRAW 2 AT H , V：GOSUB 200 
130 HCOLOR = 0： DRAW 2 AT H , V：H = H +5 
140 HCOLOR = 3： DRAW 3 AT H , V：GOSUB 200 
150 HCOLOR = 0： DRAW 3 AT H , V：H = H-f 5 
160 D = D +1 :IF D >14 THEN D = 0 ：H = 40 
170 GOTO 100 
200 P 注 PEEK (-16336) 

210 FOR 1=^1 TO 80 ：NEXT 
220 RETURN 

女 f •夫 
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• 实用程 序 • 


高精度 n 值的高速计算 

四川省雅安市第一-中学 冉克昌 


1 1 ▽ (一 l) n -l 

公式 ^=4 (arctg T -arctg 339)=^ 

(■^T — ^^ T )， 是适合计算高精度"值的公式中计 

算速度较快的一个。将 A ! ^ t , B ：23^7， C；^ T (A 

— B ) 及和式 D : 2] (― 1)" C 四式的值分别存入四个数 

’,'h ■= I . .■ 

组，很容易用 BASIC 语言编程实现。但 BASIC 语言的 
最大弱点是运行速度慢。在 CEC-I 机上计算到 n 的第 
200 位需 4 分钟，计算到第 1,000 位需90 多分钟，而 
且由于内存的限制，即使不使用 DOS 也只能计算到 9, 
000位左右。 

使用 6502 机器语言，不仅使运算速度大为提高， 
而且求 k 值的范围也增大 X 三倍。 

本程序由两部分组成 。 $ 801— $ 8FF 是 B4SIC 程 
序，便于人机对话。 $900〜$ cq 6 是机器码。 $ CC 7~ 
$ CFF 是变量区。从 $ D 00、 $ 3 D 00、 $ HD 00 和 $ D 000 
开始的 4X12K 内存，区分别存放 A 、 B 、 C、D 四式的值。 
累加完毕后，将二进制3值转化为十进制数存于 
$ D 00 开始的空间,便开始输出。要再次显示运行结 
果，可直接键入 GOTO 70 〆 .，计算出的值也可作为二 
进制文件单独存盘。 

为了扩大计算范围，提高计算速度，本程序未调用 
机内浮点运算子程序，而采用自编二进制高精度加、 
减、除法子程序。程序虽长一点，但较易读。$ 900: 打 
开 16K 卡 ； $%6: 设置数据区指针； $961: 数据区清 
零； $98A:B 式賦 初值； $99C:A 式赋初值； $9AA:A 
-B-*C, $9B5 ： D±C—D ； $ 9E9:B/239 2 - -B; $9D1 ： 
A/5 2 —A, $A27 : 数 制转换 i $B10 、 $B80、. $BD0 分 
别为除法、减法、加法子程序; $C20«G/(2n-l)-*C, 
$C49 为数制转换的子程序。 

本程序已在 CEC - I 中华学习机上调试通过。计算 
到、 时第從 W #，#小时 Vt 第到、时第 i 
万位，最多可计算到 n 的第29480位，而且未破坏 
DOS 。 略加修改后也可用于无 16 K 卡的 APPLEI 机，能 
计算到2万位以上，如不保留 DOS 还可达27，:000位 
以上。 

键入机器码后，再键 X * AF : C 7 C〆 ， 可将机器 
码同 BASIC 程序合并存盘。 


10 C =256 

20 INPUT “ N = ”; N 

25 IF N >29480 THEN 20 

30 A %= N/C 

32 B = N — A % *C 

34 POKE 74, B：POKE 75, A % 

40 M %= N /2. 4 + 3 
42 A % = M%/C 
44 B = M %- A % * C 

46 POKE 76, B：POKE 77, A % 

50 CALL 2304 
60 B = PEEK (202) * C+l 
62 MUSIC 50,90 
70 FOR C=B TO C +( N - l )/2 
72 A % = PEEK ( C ) 

74 IF A %<10 THEN PRINT 0; 
78 NEXT ： END 
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一句话新闻： 

由山东省潍坊市戴銮谟高工发明的“六笔声型”戴 
码，参加90年全国电子打字公开赛，八岁的密琳小朋 
友以70字/分种的成绩再度荣获冠军。 
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女子体型健美测定 






随#:文化与 f 生活水平的不断提高，越来越多的女 
性开始重视自己身体的健美，爱美之心人皆有之。女子 
健美的标准 是：身 高与体重相称身体各部位比例合 
度 （ 身姿体态匀称、丰满、柔韧、强健。女子的身高与体 
重，四肢与躯干等部位•的比例究竟为.多少才符合健美 
的标准呢？对此，西方、日本以及我国的有关专家学者 
都进行了许多研究，基本上有一套适合于本国特点的 
女子健美的比例数据。 • 

本程序是参考我国张守欣等专家长期的有关教 
学、研究的成果而编写的，因此较适用于我国女子健美 
的测量。该程序共对女子身体的有关部位进行12项测 
定。屏幕显示美观，全部采用人机对话（汉字提示），即 
使初学者也可使用。使用者只须根据屏幕询问输入某 
项有关数据（如身高、体重、胸围、腰围……等），屏幕立 
即显示出该女子的该项健美标准值，差距值等。这对于 
指导女性进行科学的经常性的锻炼具有指导意义。 

该程序适用于 CEC — I 中华学习机及其它兼容机。 
程序说明 如下： , 

10〜65行 ：程序 的标题及有关说明。 

70〜170行 ：程序 运行中的有关6个子程序。 

175〜245行 ：第一 项测定 ：标准 体重。 

250-320 行：畲二项测 定：上 、下身比例。 

325〜 b 80 行：第三〜第 十二项测定的有关公.式和 
上、下限值。 

385〜415行 ：屏幕 显示所用到的汉字字符串。 

原程序在12项测定结束之后，还有一个卡片式报 
表打印程序，可打印出姓名、测定时间，编号，实测数 
据，标准数据，差距值等。限于篇幅，未列出。读者若有 
兴趣可自行加上。 

此外，读者只需对程序中有关公式及显示文字作_ 
少量改动，就可变为其它测定程序，例如 ：男子 健美测 
定，小孩生长与健康测定 : …" 等。 

10 POKE 1147,3：PRINT CHR $ <4> ; “PR#3” 

15 PRINT ： HGR2 
20 HOME ： CLEAR ： INVERSE 

25 VTAB 2, HTAB 2 ： PRINT a % % % % % % % % % % % 

30 -HTAB 2: PRINT “ ” 


35 HTAB 2 ： PRINT “ 女子体型健美标准 ” 

40 HTAB 2: PRINT “ ” 

45 HTAB 2 ： PRINT U %%%%%%%%%%%%%% 

50 NORMAL 

55 VTAB 9 ： HTAB 4 ： PRINT “成都大学实验中心高文秦 
编，， 

60 VTAB 10 ： HTAB 13 ： PRINT M 1986. 6. 7 w {: GET X $ : 
HOME 

65 VTAB 3 ： HTAB 4 ： PRINT “ 〈注：本 标准适于身高 1. 
50— 2. 00M 的所有女性体型测定，但不适于少年，儿 
童及未发育完全之女子 • >”； : get X$ : GOTO 175 
70 GOSUB 75：GOSUB 95：GOSUB 125 ： RETURN 
75 VTAB 4 ： HTAB 16 ： PRINT XI $ : VTAB 8 ： HTAB 4 ： 
PRINT X2 $ 

80 VTAB 6 ： HTAB 3 ： PRINT QS $ 广 ：” ,XX$ 

85 INPUT “ ” f X:X = FN S 〈 X>:IF X<M OR X>N GOTO 80 
90 S= FN S <S> ：XX = X-S：XX = FN S<XX>：RETURN 
95 VTAB 8 : HTAB 4 : PRINT “ ” 

100 VTAB 9 : HTAB 2 ： PRINT ND$ ,XX$ ； Y$ ;S,“ 〈 cm>” 
105 IF X—1>S THEN S$ =C$ ：GOTO 120 
110 IF X+1<S THEN XX=-XX ： S$ =D$ : GOTO 120 
115 VTAB 10 ： HTAB 2 ： PRINT NI $ ； XX $ ； FH $ ； ： RE¬ 
TURN 

120 VTAB 10 ： HTAB 14 ： PRINT S $;“：”； XX; “〈cm >”；： 
RETURN 

125 VTAB 2 ： HTAB 2 ： PRlNT“[Esc] : 返回开头 • [ 任 键 ]: 

继续 . : RETURN 
130 A = A—l：HOME 

135 VTAB 2 ： HTAB 4 : PRINT “ 请按电脑要求输入以下” 》 
A 项数 据 ：” 

140 VTAB 3 ； HTAB 2 ； PRINT “ = = = = == = = = = = = ” 
145 VTAB 4 : HTAB 6 ： PRINT “ 第 ” ； 13—A; “ 项 ：，， 

150 VTAB 5 : HTAB 3: PRINT “- ” 

155 RETURN 

160 READ XI $ ， XX$ ， X2$ : IF XI $ =“0，’THEN 375 
165 GOSUB 130 ： GOSUB 70 ： GET X $ ： IF ASC〈X $ > = 27 
THEN GOTO 20 
170 RETURN 
175 A = 13：GOSUB 130 







180 READ XI $，XX $ ,QS $ ,NI $，ND $，FH $，A $，B 
$ ， Y$ ， TZ$ 

185 DEF FN S<X> = INT <X * 100+0. 5)/100 
190 M=150：N = 200：GOSUB 75 

195 VTAB 7 ： HTAB 11: PRINT TZ $ 〈 kg>: ： INPUT “”, 
AC 

200 AC=FN S<AC> 

205 IF AC<30 OR AC>120 GOTO 195 

210 AD=<X-100> * 0. 85 ： AE=AC-AD ： AD=FN S<AD> 

215 AE=FN S 〈 AE> : AS=X 

220 VTAB 9 ： HTAB 1 ： PRINT ND $ ; TZ $ ； Y $ ； AD, 
“ 〈 kg>” 

225 IF AC-1>AD GOTO 240 

230 IF AC-hl<AD THEN A $ = B $ : AE = —AE：GOTO 
240 

235 VTAB 10:HTAB 1: PRINT NI $ »TZ$ ； FH$ ,：GOTO 
245 

240 VTAB 10 ： HTAB 13 ： PRINT A $ AE;“ 〈 kg >”； 

245 GOSUB 125 ： GET X $ ：IF ASC <X$ > = 27 GOTO 20 
250 GOSUB 130 

255 READ EG $ ， X2$ ， X1 $ ， E$ ， F$ ,C$ ， D$ ， XX$ 

260 M = 50：N = 90 ： 

265 GOSUB 75 

270 BH = 5/13 ： BS=AS* BH ： BT=AS—BS 
275 BM=X* 13/5-AS ： BN= <5 * AS-13 * X>/8 
280 BS=FN S<BS> ： BT=FN S<BT> 

285 VTAB 8 : HTAB 2 : PRINT ND $ ； E$ ,Y$ ;BS ; “ 〈 cm>” 
290 VTAB 9 ： HTAB 2 ： PRINT ND $ ； F $ ； Y $ ； BT, 

— 

295 IF <BS+1><BX GOTO 310 

300 IF<BS-1»BX THEN F$ =E$ : BM = BN：GOTO 310 
305 VTAB 10 ： HTAB 2 ： PRINT NI $ ;BB $ ,FH $ ； : GOTO 
320 

310 BM=FN S<BM> 

315 VTAB 10, HTAB 10 ： PRINT F $ , D $ ； “：”； BM ； 

320 GOSUB 125：GET X$ ：IF ASC(X$ ) = 27 GOTO 20 

325 S=AS/2：M = 70：N = 100 s CS=S ： GOSUB 160 

330 S=CS—20：M = 50 ： N=200 ： DS=S：GOSUB 160 

335 S=CS+4：M = 55：GOSUB 160 

340 S=DS—10：M = 40 s N=130 ： FS=S：GOSUB 160 

345 S=FS—20：M = 20sN=60 ： GS=S：GOSUB 160 

350 S=GS—10 ： M=15：N = 40 ： HS=S：GOSUB 160 

355 S=HS—5 ： M=10：N = 30：GOSUB 160 

360 S=FS/2：M = 20：N = 65,GOSUB 160 

365 S=GS ： M=25：N = 60：GOSUB 160 

370 S=CS/2 —4：GOSUB 160 

375 HOME：VTAB 5:HTAB 9: INVERSE : PRINT “全部项目 


完毕，谢谢 ！”；：NORMAL 
380 GET X$ : GOTO 20 

385 DATA “体重”，“身高”，“请输入”，“您的”；“您的标 
准”，“符合标准!”，“超重”，“体轻”，“应为:”，“体重” 
390 DATA “上下身比例”,“〈注:从肚脐量到头顶 • “上， 

下身比例”，“上身长”，“下身长”，“超标”，“还差”，“上 
身高度” 

395 DATA “胸围”，“胸围”，“〈注 ：由 腋下沿胸的最丰满处 
量 • >，，，“腰围，，，“腰围”，“〈注 :腰的 最细沐位量 • >” 
400 DATA “髋围”，“髋 “ 〈注： 在体前趾骨平行于臀 
部最大部位 • >”，“大 腿围” ，“大腿围”，“〈注:大腿最 
上部位，臂折线下 •）” 

405 DATA “小腿围”，“小腿围”，“ 〈注： 小腿最丰满处 • >”， 
“脚颈围”，“脚颈围”，“ 〈注 :在脚颈的最细部位 • >” 
410 DATA “手腕围”，“手腕围”，“〈注 :在手 腕的最细部位 
• >”，“上臂围”，“上臂围”，“ 〈注 :在肩关节与肘关节 
之间的中部 • >” 


415 DATA “颈围”，“颈围”，“ 〈注:在颈 的中部最细处 • >”, 
“肩宽”，“肩宽”，“ 〈注 :两肩峰之间的距离 • >”，“0” 



• 实用程序 • 


求 N 位数的最小公倍数和最大公约数 

青岛市太平路小学六年级三班翁晓毅 

5 HOME 

10 INPUT “ 请输入公倍数 ( 公约数 ) 的个数 :”; A 
20 FOR B=1 TO A 

30 PRINT “ 请输入 第 ”; B; “ 个数 ” ， ： INPUTC(B) 

40 NEXT B 
50 D=D+1 
60 FOR B=1 TO A 

70 IF D/ C(B) < > INT ( D/C(B))THEN GOTO 50 
80 NEXT B 

90 PRINT “ 所求最小公倍数是 :”; D 
145 J=C(1) 

150 J=J-1 
160 FOR 1=1 TO A 

170 IF C(l)/J<> INT (C(1)/J)THEN GOTO 150 
180 NEXT I 

190 PRINT “ 所求最大公约数是 :”; J 

195 INPUT “ 继续吗？ （ Y/N)”;V$ 

196 IF V $ ;“Y” THEN GOTO 5 
200 END 

在 CEC—I 机上通过 
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• 竞赛园 地 • 

90年第七期竞赛试题答案 


评选揭晓 


安徽马鞍山钢铁公司红星中学 

许斌 

浙江鄞县中学 

章爱斌 

新疆地质局实验中学 

陆亦斌 

安徽合肥市第八中学 

孙海平 

陕西西.安市八十九中学 

王兵 

这次关于回文数猜想的试题，要解决两个关键问 


题 :逆序 相加和结果的||度。 

逆序相加的问题，这次来信中绝大多数人都较好 
地解决了。解决方法基本有 两种: 一种是把数字分离后 
放在数组中，然后利用下标的关系相加 。另 一种方法是 
把数转化为字符串，利用字符串函数分离数字再相加。 

第二个结果精度问题，是更重要也是解决难度更 
大的问题。因为一个自然数逆序相加若干次后,位数将 
越来越多，以至于超出 BASIC 变量所能表示的精度 
(浮点 BASIC 实型变量精度是9位有效数字）。而这种 
情况发生的可能性是很大的。例如自然数 8 9,要经过 
24次逆序相加后，才能得到回文数：8813 2 000纟318 8 。 
而它是一个13位数。因此，本题不能用实型变量直接 
进行运算，必须用高精度计算的算法加以解决。 

来信中解决这个问题的方法概括起来有三种:一 
是用字 符串; 二是用数组;三是用内存单元。不论用哪 
种方法，都必须要很好地处理以下几项 工作： 

1.键盘输入的自然数存储方式。自然数若存储在 
实型变量中，则只能处理9位以内的自然数。若存储在 
字符串变量中，则位数可达到239。若直接存储在数 
组，则位数可更多。 

2•输入的原始数据正确性判断。如果原始数据用 
实型变量存储，必须判断是否是大于9的整数。如存在 
字符串变量中，则必须判断输入字符是否有非数字字 
符，值是否小10。 

3. 输入的原始数是否就是回文数的判断。如果是， 
就不需要进行逆序相加。 

4. 逆序相 k 中进位的 处理。 

5. 编出的程序结构是否清晰，易读、易改，符合结 
构化程序设计基本要求。 

6. 利用若干技巧，简化程序，加快运行速度，节省 
内存。 

下面我们从来信中送出三个程序，提供给大家参 
考，它们不一定是最优的程序，但具有一定的代表性。 


为便于阅读，，我们对部分程序作了少量的修改。 

程序一 :选自 新疆地质局实验中学陆亦斌同学的 
来信： 

] 

20 Q=l ： DIM A(1000) ， Z(500) ， B$ (100) 

30 INPUT “限定最多做几步运算 ：”; M 
40 B =0: PRINt “输入一自然数 （> = 10):”； 

50 GET 1$ ： IF ASC(I $) = 13 THEN PRINT I $ : 
GOTO 65 

55 IF I $ <“0” OR 1 $ 〉 “9” THEN 50 
60 B = B + 1 ： A(B) = VAL (I $ )： PRINT 1 $ ；： 
GOTO 50 

65 IF B<2 THEN PRINT : GOTO 40 
80 FOR I = 1 TO INT (B/2 + . 5):A = A(I)+A(B+ 
1-I)+Z(I—1):Z ⑴ = (A>9):U=U-(A=11) 

* (A(l-1) = 0) * (A(I+l)+A(B + 2-I) = 0) 
+Z(I):A(I)=A -Z(I) * 10：NEXT I 
90 Z= INT (B/2) ： Z(I)=Z(I-1) 

100 FOR 1= INT (B/2 + .5) + l TOB ： Z=Z-l ： A= 
A(Z+1)+Z1-Z(Z)+Z(Z+2):Z1 = (A 〉 9) — 
(A<0) ： A(I)=A-Z1 * 10：NEXT I:A(B+1) = 
Z(1)+Z1 

110 B=B+A(B+1): IF U>0 THEN 140 

120 PRINT “经过”; Q; “ 次运算得回文数”； 

130 FOR K =1 TOB ： PRINT A(K ),： NEXT K: END 
140 Q=Q 4-l ； U=0：Zl = 0：IF Q> M THEN PRINT 
“ 经过 ”;“ 步逆序相加后仍不是回文 数 ”: END 
150 GOTO 80 

他的程序的特点是用 get 语句接受键盘输入，并 
存入数组中。这样，原始自然数的位数可与数组最大下 
标相同。逆序相加也用数组来处理，使和的位数也可足 
够地多。该程序一个突出的特点是在判断一个和是否 
是回文数时，并不是一位一位去比较，而是用了以下的 
规律: 如一个数逆序相加各位和都未进位，则和是回文 
数。另外，如某位相加和是11，但前一位和后一位都为 
零时，不算进位。程序中用变量 V 来作进位标志，并用 
下面表达式来判断 进位： 

U = u — ( A = ll ) * ( A ( l — 1) = 0) * ( A ( l +1) + A 
(B.+ 2-l) = 0)+Z(I) 

程序二 

是由安徽合肥八中的孙海平同学编写的。 

10 LOMEM ： 8191 ： HIMEM ： 16383 

30 CLEAR : PRINT : INPUT “NATURAL NUMBER- 

40 IF N < > INT (N) OR N < 10 THEN PRINT 
CHR$ (7) ; “ERROR !，，： GOTO 30 
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50 W = 0：R = 0：D = 16383：D2 =20479 
60 Q= 0：N$ = STR$ (N)：P = LEN (N $ ) ： FOR 
L =1 TOP: POKED+L，VAL ( MID $ (N $ ,L, 

1))： NEXT L 
65 GOTO 150 

70 R= R +1: IF R>2000 THEN PRINT : PRINT 
CHR$ (7) ; “FALL !”:GOTO 190 
80 P2 = P -f 1：W=0：Q2 = NOT (Q) 

90 FOR I = 1 TO P：B = PEEK (D + I) + PEEK 
(P2+D-I) + W：W = INT (B/ 10)： POKE D2 
+ I,B—W * 10: NEXT I 

100 POKED2 + P2,W： PRINT R； : PRINT TAB(6)； 

“，， 

110 FOR J = P TO 1 STEP - 1 : PRINT PEEK (D + 

J) ?：NEXT J： PRINT “ +，，； 

120 FOR J= 1 TO P： PRINT PEEK (D +J) ; : NEXT 
J： PRINT “ =，、 

130 FOR J = P + (W >0) TO 1 STEP —1: PRINT 
PEEK (D2 +J)； : NEXT J: PRINT 
140 D = D + D2：D2 = D — D2：D = D —D2: IF 
W > 0 THEN P =P2 
150 FOR K = 1 TO INT ((P +1)/2) 

160 IF PEEK (D + K) < > PEEK (D + P + 1 - 

K) THEN 70 
170 NEXT K 

180 PRINT CHR $ (7) ; “WELL!” 

190 INPUT “TRY AGAIN?，，； A $ ： IF A $ = “Y”, 
THEN PRINT : GOTO 30 
200 END 

这个程序的特点是原始自然数的存储和逆序相加 
直接在内存单元中进行，一个字节一位，这样可大大节 
省内存，也可使结果的精度提高，按作者说可以到一万 
多位。并且他利用了一个开关 Q2 和 Q， 控制两个数据 
块轮流作为源数据块和结果数据块，这就省去了数据 
搬家的工作。可惜的是他把原始自然数存在实型变量 • 
中，这样原始数最多只能有九位，降低了程序的功能。 
程序三 

5 REM PROGRAM-90. 7. 3 (WANG BING) 

100 J = 1 ： INPUT A $ 

110 B$ = “ ”:D$ =“ ，，: D =0：L= LEN (A $ ) 
120 FOR I =1 TOL： = MID$ (A$ ,L +1 — I， 
1) 

125 C= VAL ( MID$ (A $，I，1))+VAL (X $ ) + 
D 

130 B$ = B$ + X$ :D + 0 

150 IF C > 9 THEN C =C —10：D =1 


160 D $ + STR $ ( C ) + D $ ： NEXT I ： IF D = 1 
THEN D $ =“1” + D $ 

170 IF A $ = B $ THEN PRINT ： PRINT A $ : END 
180 PRINT J “，， A $“ +，， B $“ =，， ; D $: A $ = D $ 
190 J = J - f -1： IF J < > 101 THEN 110 
200 PRINT “ NOT ”： END 

这个程序是西安 89 中王兵同学编写的。特点是不 
同数组，而直接用字符串变量来处理。程序编制得很简 
洁，易谈易懂，是最大的特点。但由于用字符串处理回 
文数的位数被限制在255以内，且对原始数据没有合 
法性判断。但这种处理方法和程序设计风格值得我们 
借鉴。 

另外，山东潍坊的佟德辉同志的程序，是用6502 
汇编语言写的，程序对我们前面提出的问题作了较好 
的处理，但限于篇幅，就不在这里刊登了。 

第一次竞赛，就收到了来自新疆、黑龙江和广东等 
二十一个省市自治区的来信，参加的人员有大、中学 
生，大、中学教师、工人、技术员等各方面人士。对于读 
者们这样热情的支持，我们表示衷心的感谢。 

本期竞赛优秀者奖品为快拷贝盘壹张。 

栏目主持人 ：吕品 星火 

(上接12页） 

2660 VTAB 8: HTAB 3: PRINT "Pl =、 INT (P * 1000 + 

■ a) / 1000) TAB< 14 >： GOSUB 2690 ： PRINT "I ： P*="jPj 
TAB< 26)1 

2665 IF P < = .01 THEN PRINT 92% i : GOTO 2685 

2670 IF P < * .05 THEN PRINT P3$» : GOTO 2685 

2680 PRINT P1$i 

2685 GOSUB 190 ： CLEAR : GOTO 1360 
2690 F =• 1 

2700 FOR I * 1 TO N ： Z(1> = Z< 1) - F ： Z<2> » Z(2) 

F ： Z<3> ^ Z<3> + F ： Z<4> = Z<4> - F 
2710 IF F = 1 THEN PD = Z<1)：PE = Z<a> 

2720 IF F = - 1 THEN PD = Z(2>：PE = Z<3> 

2730 IF PD < 0 OR PE < 0 THEN 2770 

2740 IF ABS (T - Z<1>> < TZ THEN 2760 
2750 GOSUB 2840 
2760 NEXT 

2770 IF F » 1 THEN F = - 1 ： FDR I = 1 TO 4 ： Z<I> 

=X<I>: NEXT : GOTO 2700 

2780 RETURN 

2790 FOR I = 2 TO 4 

2800 B = 1 ： FOR J ^ 1 TO D<I>：B = B * J ： NEXT 
2810 Ul = U + LOG <B >： NEXT I 

2820 V = 1 ： FOR J = D<1) + 1 TO N：V = V ♦ J ： NEXT 
2830 LJ = Ul - LOG <V >： RETURN 
2840 M = U ： FOR K * 1 TO 4 

2850 D = 1 ： FOR J = 1 TO Z<K>：D = D * J ： NEXT J 
2860 M = M ， LOG <D >： NEXT K 

2870 Q = INT < EXP (M) ♦ 10000 + -4> / 10000：P » 

P + Q 

2880 RETURN 
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• 程序剖析与编程技巧 • 


设计新颖的排序程序 


南京朱国江 


排序方法，名目繁多，如气泡法、枚举法、插入法、 
shell 法、快速分类法等等。虽然这些方法，结构各异，流 
程不一，技巧很强，各具特色，但其设计思想总离不开 
反复比较、不断交换这两个传统的框框。同时，在选用 
上述不同的排序方法时，需要一定的附加条件，有的还 
要考虑设置指针，安排辅助存贮单元，确定特征变量等 
等。而在处理大量数据时，内存空间的矛盾比较突出， 
并且无法区分并列名次问题，有的排序速度还相当慢。 

本文介绍一个设计新颖、构思巧妙的排序程序，基 
本上打破了常规的设计思路，跳出了传统的设计框框， 
不受应用时附加条件的限制，较好地解决了并列各次 
的问题，而且存贮空间少，执行速度快。卒文以10个考 
生成绩排序为实例。 

一 、 变量及存贮说明 

N : 学生人数 

M : 单科成绩 

X :记录不同分数 

A ( x ): 记录考分为 x 的学生数 

A $( x ): 存贮学生的学号 

I :循环变量，控制分数。 

J : 循环变量，控制相同成绩的人数。 

二 、 程序及技巧说明 

(1) 10— 60 句：输 入人数 ( N ) 和最高分 ( M )， 并将 
考生学号、成绩分别存入 A $( x ) 和 A ( x ) 中。 A ( x)=A 
( x ) + l ， 统计成绩为 x 的学生人数，是数值 相加 ； A 
$ ( x )= A $ ( x )+ X $ 中的“ + ”号是字符串连接符，其 
作用是把“ + ”号左右两边字符串连成一个新的字符 
串，并把它赋给字符串变量 A $00。因此, A $( x ) 中 
存贮的是相同成绩 X 、 不同学号的号码组合。 

(2) 70 —140 句: 打印排序后的学号、名次和成绩。 
根据条件语句满足与否,执行三个程序段。 

• 循环变量 I 控制分数，从满分开始，如果 A ( I ) = 

• 0说明存贮单元 A ( I ) 中没有相应成绩的人数，则循环 
下去，否则执行 J 循环。 

• 若 A ( I )> = 2 转向160句，这是当相同成绩 x 
的人数等于或大于2时，转向处理相同名次的程序段 
(160— 220句)。 


•当 A ( I ) 仅仅为1时，执行 1(50 —130句，其中 C 
= C +1， 作为名次计数 器用； 而120句 A $ ( I )中存贮 
了对应 I 值的学号，采用字符串的方法，保证对应成绩 
的学号也能正确打印•，而无需交换学号。 

(3) 160 —220句 :处理 相同成绩并列名次的问题。 
由于此时 A ( I ) 关1，这样，在打印一个相同成绩的学号 
和成绩后，名次必须减1;而在完成所有相同成绩的同 
名次情况后，计数器应加1，并返回140句。 

(4) 本程序由于没有采用数据比较、数组交换的方 
法，因而不受考生人数的限制，执行速度快；且因 A 
( M )， A $( M ) 不变，占用内存特别少。 

本程序在 IMB PC/XT 机上通过。 

10 INPUT“n ， m=”;N，M 
20 DIM A$ (M),A(M) 

30 FOR 1=1 TON 
40 READ X $ ,X 

50 A ( X )= A ( X ) + 1: A $ ( X )= A $ ( X )+ X $ 

60 NEXT I 

70 FOR I = M TO 0 STEP —1 
80 IF A ( I ) = 0 THEN 140 
90 IF A ( I )> = 2 THEN 160 
100 FOR J =1 TO A ( I ) 

110 C = C +1 

120 PRINT MID $ ( A $ ( I )， 4 * ( J —1) + 1，4)， C，I 
130 NEXT J 
140 NEXT I 
150 END 

160 FOR J =1 TO A ( I ) 

170 C = C +1 

180 PRINT MID $ ( A $ ( I )，4 * ( J -1) + 1，4)， C，I 

190 C = C -1 

200 NEXT J 

210 C = C +1 

220 GOTO 140 

230 DATA 8801,96,8802,98,8803,97,8804,98 
240 DATA 8805,120,8806,98,8807,99 
250 DATA 8808,98,8809,99,8810,95 
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• 程序剖析与编程技巧 • 


CEC 一 I 机中文状态的第11行显示 

沈阳冶金机械专科学校' 李晓桥' 


CEC -1 机中文状态下的屏幕有10行可以使用，第 
11行是状态提示行，其显示方式与前10行不同，一般 
的清屏方法都清不掉它，整屏文字上下滚动或左右卷 
动时它也不随之而动，因而若能将其利用起来不仅可 
以扩大屏幕显示范围，而且用其作为某些提示，说明或 
标题栏、表头栏是非常适合的。 

由于中文第 n 行在设计时是作为输入汉字的提 
示行而专用的，所以一般的 CEC - BASIC 语句和命令都 
对其无效，也就是说一般用户不能直接使用这一行来 
显示自己的文字，利用本文的这段汇编程序，就可以方 
便地使用第11行来显示了。 

此程序只占用从$ 300开始的一小段内存，因而 
不影响其它任何 BASIC 和汇编程序的执行，键入（或 
从磁盘'调入）此程序后需先用 CALL 768( 或在监控 
状态下用 300 G ) 命令运行一次，目的是建立&命令的 
跳转指针。而后，只要将需在第11行显示的字符(包括 
汉字、数字、字母和各种可显示字符)放入 A $ 之中，再 
使用& •命令 ， A $ 的内容即可显示在第11行上。此 
命令即可以使用在 BASIC 程序中，也可以作为立即执 
行的命令来使用，如在 BASIC 程序中加入以下几条语 
句即能在中文状态第11行上显示 “ CEC - I 中华学习 
机”： 


100 PRINT CHR$ (18) 

110 A$=“CEC —I 中华学习机 ” 
120 &. 


一般的清屏方式（如 HOME、PRlNT CHR $ (12) 
等)都不影响第11行显示，若需要清除这行内容，可将 
A $赋给34个空格后再用命令，或用 PRINT CHR 
$(18) 都可以方便地清除。直接键入 Ctrl -0 也能清除 
它。 

需注意 A $的长度应在一行以内，即少于34个字 
符(汉字占两字符）。否则屏幕会乱。本程序是将 A $ 
的内容在第11 *行第一列开始显示，若需要从第 n 列开 
始，可以使用 POKE 785, n 来修改程序。不过修改后 A 
$串长应小于 (34— n )。 &命令执行后光标被定在第1 
行左端，若需改在别处，可用 VTAB ( X ) 或 POKE 870, 
X 均可实现。 
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• 实用程 序 • 


高分辨率图形打印程序 


万县市初二中易忠友 


高分辩率图形打印有多种方式。打印前，需要事先 
设定参数,而参数值的计算和记忆都很麻烦。为此，我 
专门编了一个图形打印程序。 

当你需要打印图形时，先在文本状态将图形用 
BLOAD 调入指定页，再运行下面这段程序。这时，有八 
个项目供你选择。其符号和意 义是： 

1. HGR1 … 第一页 2. HGR2. 第二页 

3. AND. 与操作 4. OR. 或操作 

5. XOR. 异或操作 6. FANXIANG 反相 


7. FANGDA. 放大 8. VTAB. 行方式 

你可以按你的需要选择其中的一项或几项，然后 
再回车。本程序会自动将你选择的项目转换成相应的 
参数值并进行计算。接着再自动按你选择的方式将图 
形打印出来。 

要是你选择了第八项(行方式），程序还将要求你 
输入行参数 (VTAB=?) 。这时*将打印你指定的那一行 
图形。 

本程序简单实用。打印方式可任意选择，特别使初 
学者更觉方便。如果你对各种打印方式还不够熟悉的 
话，还可借此比较各种打印方式的实际效果。 


10 HOME ： VTAB 2：HTAB 3 ： PRINT^TUXING 


HTAB 2 ： PRINT “ _ ”: PRINT 

20 PRINT TAB(3);“1.--HGR1 2. —--HGR2” 

30 PRINT TAB(3) 广 3.---AND 4. —— OR” 

40 PRINT TAB(3) ;“5. --XOR 6. FANXIANG” 
50 PRINT TAB(3) ;“7. FANGDA 8 •- ---VTAB” 
60 GET X$ ：X = VAL (X $ ) 

70 IF X=1 THEN P1 = 2A (X—1) 

75 IF X=2 THEN P2=2A (X-l) 

80 IF X>2 AND X<6 THEN L=2 八 （ X-l) 

85 IF X = 6 THEN 1=2 A (X-l) 

90 IF X=7 THEN D=2 八 （X — 1) 

95 IF X = 8 THEN U = 2 八 （ X—1) 

100 IF X$ = CHR$ (13)THEN 120 
105 PRINT X ; “” ； 

110 GOTO 60 

120 N=U+D+I+L+P1+P2 

130 IF N>128 THEN INPUT “VTAB? ，， ; D:VTAB D 

140 POKE 1913,N 

150 PR#1 

160 PRINT CHR$ (17) 

170 PRINT CHR$ (24) 


DA YIN FANGSHI ”： 


180 PR#0 
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• 程序剖析与编程技巧 • 


关于在随机文件中删除记录的研究 


甘肃省天水报社 王汝建 


一、 引言 

近年来，用 BASIC 语言开发的一些管理程序中， 
一般具有删除功能，以解决用户随时否定的记录数据， 
但由于这种删除功能的实现，在大多数情况下，运行时 
间太长，不够理想，使操作人员难以接受。为了解决这 
一问题，笔者通过实际编程工作，反复试验，设想出一 
种删除数据文件中记录的新技术——跳跃覆盖法。这 
种技术是在 BASIC 状态下使用，即以同一随机文件的 
最末记录数据，去覆盖被删除的记录数据，实现在随机 
数据文件中，删除记录之目的。通过实际应用，证明这 
种技术是可行的，实用的。 

二、 设想的形成 

以前，在用 basic 语言编制的一些具有删除功能 
的管理程序中所使用的数据文件是随机文件时，删除 
功能的实现是在程序的控制下，对被删除记录后面的 
所有记录要向被删除记录的方向逐条移位，再向磁盘 
重新写入(这种方法后称顺序移位删除法）。这样，删除 
一个或几个记录数据的时间就与后面的所有记录的条 
数有关。如果被删记录后面的所有记录条数越多则删 
除一次被删记录所用的时间就越长。 

为了在使用删除功能上，减少运行时间，节省磁盘 


空间和降低磁盘机的机械磨损，笔者根据随机文件的 
特点，提岀的这种跳跃覆盖删除技术是取有关随机文 
件最末的数据记录(不包括文件结束标志记录），可跳 
到同一文件的任何记录位置，覆盖将被删除的记录内 
容。要更清楚地说明这一设想，我们可了解一下随机文 
件的结构。 

我们知道， basic 程序所涉及到的随机文件，它的 
每条记录一般是由基本数据组成，如以某人的情况或 
某件事物的情况数据为基本数据。而随机文件是由一 
条或一条以上的记录，通过有序地排列组成的集合，抅 
成了一个每条记录长度相同的随机数据文件(如图一 
所示）。每条记录都有更改的可能，当某条记录的内容 
要被删除时，就用该文件的最末记录内容取而代之。而 
被删除记录的号数却要保留，以保证文件中记录的连 
续性。文件结束标志是编程时设计者为 了区别 文件的 
结束与否所设置的特殊记录，一般放在文件的最后(这 
里称之为第 n +1 号记录）。所以，随机文件中的记录经 
删除、整理后，文件结束标志就要跳到新的最末数据记 
录之后的一条记录地址中。这样，变更处理过的随机文 
件在使用上也是可行的。 


可使用记录 

被删记录 

可使用记录 

文件结束标志 


〈文件 名> 

记录号 

序号 

姓名 

性别 

年龄 

出生 

工令 


1 








2 








3 
















k 








k +1 








k +2 























' 

n -2 








n —1 








n 








n +1 


$ 

— 

— 

— 

— 

— * 










跳跃覆盖方向 


移标记 


记录长度(字节） 

注:标记“一”表示空字符 i ”表示结束标志 

图一 
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A (被删记录) 


B (可用记录) 


A (被删记录) 


三 、 工作原理 • 

我们现在提到的删除功能,实质上是指删除数据 
记录的功能，所使用的跳跃覆盖删除技术是利用随机 
文件中记录结构的特点，在 basic 程序的控制下，通 
过主机与磁盘的读写操作,可方便^删除指定记录，实 
现其功能要求,整个删除过程以图(二）甲为例(即被删 
除记录条数小于其后所有记录条数)来说明。假设有一 
数据 DA (随机文件），其中记录条数为 n 条第 n+1 号 
记录为文件结束标志, Xi—Xd 为被删除记录的内容， 
R-Rm 为文件 DA 中被删除记录之后所有数据记录 
的内容。当要删除记录1一&时，就从文件 DA 的文 
件结束标志(第 n+1 号记录)之前的一条记录起，按记 
录号递减的方向，读出记录 K 一仏一 d+] 的数据，然 
后再按同向，依次覆盖记录&一1的全部内容，即 R„ 
—X^Rn-l — X .,…… + 当被删除的记录全 

部被覆盖后，将文件结束标志(第 n+1 号记录)读出， 
再写入第 R n -d + 1 号记录+，全部删除过程即告完毕，可 
转入主程序执行。 

四、 功能分析 

刪除功能的实现，我们一般是以子程序的形式编 
制的，要实现_功能，不但考虑程序中如何读出有用记 
录的数据和如何将数据写入被删除记录的地址中，而 
且还要考虑被删除记录的条数与其后所有数据记录条 


数之间的比例关系，在图(二）中可以看到 A 为被删除 
记录的(连续)条数， B 为 A 之后所有记录的条数(除第 
n + 1 号记录外）, C 为文件结束标志记录(第 n + 1 号 
记录）。当 A 、 B 两部分记录条数的比例在各种情况下 
时，实现删除记录的方法则随之不同，我们可分以下两 
方面分析。 

_(1)当 A<B 时，如图（二）甲所示，就读出 B 中 d 
条记录(且使 d = A ), 覆盖 A 条全部记录（即写入）， B 
中还剩 B _ d 条记录，这时再将第 n +1 号记录 C 写入 
n - d +1 号记录中,其后的记录便为无效，可按空记录 
处理。 

(2) 当 A > B 时，如图(二）乙所示，在这种情况下， 
读出 B 的全部记录 ，去* 盖 A 记录是不行的，这时我 
们就要考虑覆盖 A 的一部分记录(即这部分记录条数 
恰等于 B ) ,另外一部分记录可随记录 C 的位置变动而 
变为无效。所以，当读出 B 的全部数据记录后，就从第 
D , 号记录开始®盖至第 D b 号记录(写入 ） ，且使 A — 
D 6+i = B , i 然后将第 n +1 号记录 C 写入第 n _ A + l 号 
记录中(证明从略），其后的记录可按空记录处理。 

因此，在程序中要实现刪除记录的目的，就必须考 
虑记录条数 A 、 B 的各种情况。这样，在删除指定的记 
录时，不论记录条数怎样变化，同一随机文件的记录内 
容也能保持正确，有条不紊。 


- C (文件标志记录） 


图: 


B (可用记录） 

- c (文件标志记录) 
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• 程序剖析与编程技巧 • 


CEC - I 居中/右齐打印(显示)通用子程序 


南京 

屏幕显示字符串或打印输岀字符串，如果不置定. 
位函数， f 、 统自动将行首定位于屏幕或打印行的左 
端，即每行自动左起对齐，在实际应用中，有时需要每 
行居中或右端对齐屏显或行打输出，这时就需用函数 
TAB ( HTAB ) 来定位，在打印汉字时要改用 SPC 函数 
来定位，以上函数当然可以由人工取值，但毕竟计算 
起来 繁琐。 笔者编写的这个通用子程序（见【程序 
一】完全可以自动完成居中/右齐屏显或打印字符 
串，汉字/英文状态均可调用，在调用该子程序之前需 
预置以下 参数： 

一. 将所需输出的字符串賦值给 ZC $ 。 

二. 如果系打印输出，则需将行宽或一行中某一 
打印域宽賦值给 X( 汉字状态下， X 为汉字的个数，即 
一个汉字占二个字符的位置）。 

三. 将输出字符串位置代码赋值为： 

1. 如居中屏显则 XM =1 

2•如右齐屏显则 XR^l 

3. 如居中打印则 DM =1 

4. 如右齐打印则 DR =1 

5•如一行内连续居中打印各域则 LM =1 
6.如一行内连续右齐打印各域则 LR =1 
说明 ：以上 5、6是为一行中连续打印域设计的， 
在制表程序中非常有用，它能使所制表格每一行中不 
同栏目居中或右齐打印，使表格生动美观。 

例 1. 表格打印(见【程序二】） 

【程序一】 

10000 XC=34 ： DC=X* 2 ： HZ=0 
10005 L=LEN(ZC$ )：REM 字串长度 
10010 FOR I=*l TO L:HZ = HZ+(ASC(MID$ (ZC 
$ 山 1)) = 127):NEXT:REM 汉字个数 
10015 ZF=L-HZ* 3 ： REM 字符个数 
10020 SL=HZ*2+ZF:REM 显示 / 打印的实际长度 
10025 XK = XC-SL：REM 屏显空格数 
10030 DK = DC-SL：REM 打印空格数 、 

10035 IF XM THEN PRINT TAB(XK/2) ,ZC $ ; REM 
居中屏显 

10040 IF XR THEN PRINT TAB(XK),ZC$ : REM 


包敢 

右齐屏显 

10045 IF DM THEN PRINT SPC(DK/2) ；ZC $ : REM 
居中打印 

10050 IF DR THEN PRINT SPC(DK),ZC$ : REM 
右齐打印 

10055 IF LM THEN PRINT SPC(DK/2) ；ZC $ ；SPC 
(DK/2),：REM 连续居中打印 . * 

10060 IF LR THEN PRINT SPC(DK),ZC$ ，: REM 
连续右齐打印 

10065 XM=0：XR = 0 ： DM=0：DR = 0.LM=0 s LR = 0 
10070 RETURN 
【程序二】 

10 POKE 1787,0 ： POKE 1915,0：POKE 1659,5 

15 PRINT “ __ ”: PRINT“ 1 ” ； 

20 


zc $= “姓 

30 ZC $ = 

til n 

名 ”: X = 5: LM= 1: GOSUB 10000 ： PRINT“ 1” 
“ 语 文 ”: X = 3: LM = 1: GOSUB 10000 ： PRINT 

40 

zc $ = 

“1 

“ 数 学 ”: X = 3:LM = l:GOSUB 

1000(y ： PRINT 

50 

zc $ = 

u-\n 

“ 外 语 ”: X=3:LM=l:GOSUB 

10000, PRINT 

60 

1 

zc $ = 4 

« 1 n 

' 总 分 ”:X = 5 : LM=l:GOSUB 

10000 ： PRINT 

65 

1 

PRINT “ 

，， 

PRINT“1 ，， ； 


70 ZC$ = “ 赵新 宇 ”: X = 5 : LM=l:GOSUB 10000 ： PRINT 



80 ZC$ = a 95 w ：X = 3 ： LR=l：GOSUB 10000:PRINT“1 ”； 

90 ZC$ =“90” : X = 3 : LR = 1:GOSU 10000:PRINT“1”, 

100 ZC $ = “ 100” ： X = 、 3 ： LR=1：GOSUB 10000：PRINT 



110 ZC$ sMSS'XsSJMshGOSUB 10000：PRINT 


120 POKE 1787,1 ： POKE 1915,l:POKE 1659,0:END 

]RUN 


姓名 

语文 

数学 

外语 

总分 

赵新宇 

95 

90 

100 

285 
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• 辅助教学与研 究 • 


课件设计的发展趑向 

一参加 WCCE ' 90会议有感 

栏目主持人 王吉庆 


世界计算机教育应用会议 ( WCCE ) 是由国际信息 
处理联合 ( IFIP ) 组织,在联合国教科文组织 ( UNESCO ) 
支持下召开的一种大型国际会议，主要讨论计算机教 
育与计算机辅助教育的各种问题。会议自1971年在荷 
兰阿姆斯特丹举行第一届以来，每隔四、五年举行一 
届，依次为法国马赛的 WCCE ' 76、瑞士洛，桑的 
WCCE ' 81、美国弗吉尼亚洲诺福克的 WCCE ' 85。这次 
在澳大利亚悉尼亚洲举行的 WCCE - 90是第五次，参 
加者有2334人，来自57个国 家和地 g ；。 自第三届 WC - 
CE 会议开始,我连续三次出席了这个会议，感到了计 
算机教育应用在世界范围内的发展与变化。本文主要 
谈谈课件设计方面的发展与变化。 

―、课件开发的工程化倾向 

随着软件工程的发展，课件的开发已经逐渐脱离 
手工生产方式，走向工程化方式。80年代起已经出现 
了课件工程的提法。 WCCE 会议也提出了课件工程 
(Courseware Engineering ) 的概念。 

与软件工程一样，课件工程的目标是提高开发效 
率，保证课件质量，降低开发成本。由于课件是用于各 
种学生进行教育活动的，在开发过程中，增加不少新的 
考虑因素。 

在设计阶段,任何一个课件系统要考虑其教育内 
容的模型(例如各种客观现象的模型和所要教的规律、 
知识和公式的表达），其教学策略的模型(例如是讲解 
法还是发现法等），以及用以具体教学的方式与方法 
(包括顺序、对于问题的掌握程度的测试方法和标准 
等)。它们数量的巨大，变化的广度，难以用文字来一一 
叙述，其分类和录入都是十分沉闷而烦杂的事情，而且 
对于与各种不同学生之间的会话是难以预计的，因此 
对于一般教师来说，课件设计工作是十分困难的事情。 
而且这三种模型之间的关系也难以 1 表达和设计。 

在实现阶段，通常是使用著作系统来建立各种屏 

幕和问答。这些著作系统品种繁多，需要开发者认真选 

用;而且由于对设计的解释方式的多样性，从设计到实 

现(即从哀字到机器语言)的途径错综复杂，如何说明 

对设; H •的最佳解释是一个十分困难的问题;更进一步， 

课件'在实现阶段还需要有教育内容上的査错过程，即 
.* 


保证教育内容的正确性,而这种过程需要面向各类学 
生模型，因此专家教育系统必须考虑这一些问题(例如 
学生对各种问题回答的数 tt 等等）。 ' 

验证阶段不仅要测试软件的工作，还要测试其教 
育内容是否正确、教学逻辑是否正确等，还要检査其各 
种文档是否能为学生和教师所接受。在这一阶段中，评 
价课件的质量是一个很困难的问题，不同教育专家有 
着不同的评价方式与标准，如何将其统一起来，确是一 
个复杂问题。 

课件工程可以利用软件工程的许多研究成果，但 
是还要结合教育工程学、知识工程学、教育学、心理学 
多方面的研究成果。其特殊性则在于如何建立各种教 
学过程的模型和实现与各种不同状态的学生进行会话 
通讯。 

荷兰计算机教育应用社的施柯麦克 ( Schienmaker ) 
等把课件设计置于一个由功能(过程）、数据(项目）与 
会话(动态)三个方向组成的一个三维空间来考虑。它 
的工作框架如表1 所示： 



目标 

i 动态功能 

项目 

实现中考虑 

目标系统 
模型 ' 

学习者、知识、 
技能 

教学策略 

任务 

参与者 

课堂组织 

教育设计 

系统目标 

教学模块处理 

支持的任务 

内容 

技术限制 

功能设计 

灵活性、完备性、 
稳定性、正确性 

用户界面设计 

过程逻辑 
与结构 

逻辑数 

据模型 

硬软件工具 
类型的限制 

技术设计 

模块性、可维护性 
可移植性、速度 

事件处理、 

窗 n 等等。 

模块、过程 

数据模式、 
DBMS 

具体硬软件 
限制 


表课件设计框架 

"&四个不同层次上（目标系统模型层次、教育设计层 
次、功能设计层次以及技术设计层次），分别进行考虑。 
例如在目标系统模型层次上，要分析学习者、知识、技 
能等，而在技术设计层次上则要考虑其模型块性、可维 
护性及可移植性等。而在具体实现阶段中上述设计可 
以分别由相应工具支持其开发，图 I 指出的技术设计 
的相应工具与所实现的系统。 
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技术 

设计 

xk 


系统 


动态 功能 项目 



田1实现过程示意 

其他一些论文也力图便用各种模式来形式化课件 
设计过程的各项工作，为课件开发找出高效率、低成 
本、保质量的道路。 ' 

二、开发工具与环境 

会议论文与展览中推出和介绍了不少课件开发工 
具与环境，总的印象是面向目标程序设计 （ Object — 
Oriented Programming ) 的发展十分迅速，综合媒体 ( Hy - 
permedia ) 的环境受到关注和重视。. 

70年代中所流行的结构化程序设计在软件工程 
的发展中起过十分重要的作用。许多课件开发工具(包 
括著作语言与著作系统)是按照结构化程序设计原则 
研制的面向过程的软件工具(语言或开发系统 h 这些 
工具向课件开发者提供描写各种教学策略和逻辑的工 
具和处理数据的过程，简化了课件的开发编码工作，但 
是他们的使用舎要有一定的编程技巧，所编写程序考 
虑因素很多时更是这样，因此其效率上还不能满足与 
课件开发者友好会话和提高开发效率的进一步要求。 

在较早实现的面向目标程序设计语言 SmaUtalKd 
的基础上发展起来的 Hyper Talk 与 Hyper Card 在这次 
会议上得到了广泛的介绍和讨论，许多论文从各个方 
面谈到其应用的意义。 

Hyper Talk 是一种面向目标的语言，每项目标有 
一个脚本 ( Script ), 即该目标的处理程序，由 Hyper Talk 
语句写成 。 Hyper Talk 语句有两类 :信息 ( message ) 和功 
能。当目标接收一个信息与功能时,若有处理程序则执 
行，否则沿目标结构向下传送 。 Hyper Card 则为与 Hy - 
per Talk 相连接的数据库管理系统，其中数据表现为以 
下几种目标 :堆栈 、卡片、背景、域、按钮。堆栈可以用来 
描述课件(例如一个栈对应一课）。卡片可以用来描述 
学习情况(例如一段课文与各种图形解释、一个问题、 
学生的回答情况等等），背景是通常出现许多卡片上的 
信息(例如这些卡片上信息的出现及处理方式等），域 
是卡片上信息记录的区域(例如，卡片的栈是鸟的话， 
域中可能是鸟的大小，鸟的生存地点等），按钮则是用 
以辩认和处理鼠标的活动目标。用 Hyper Card 来组织 
课件,可以用知识库方式来组织教学内容，允许学生浏 
览和査询所需要的知识，学生利用鼠标迅速从一张卡 


片联系到另一张相关的卡片，从而获得所感兴趣的各 
种知识内容。结合多媒体与综合媒体 ( Hypermedia ) 内 
存储的大量知识信息(文本、图象、动画、声音等），学生 
可以在课件中按自己的能力和兴趣，调节自己学习的 
内容与进度，学习活动具有相当大的自由度。但是 Hy ¬ 
per Card 的使用需要一定的经验，而且它目前主要在 
Macitach 机上实现,要使用鼠标作用编写和运行工具， 
在我国普及还存在一定困难。 

英国南安普敦大学的霍尔 (Hall) 等介绍了他们利 
用 Hyper Card 开发的一个综合文本 (Hypertext 和综合 
媒体的教学系统，它于1988/89年度完成了细胞生物 
学课程。在使用该系统并回答有关调査的25名学生 
中，都感到这种参考项目可以查询的方式有着极大的 
好处，但是同时也有10人感到这种方式容易迷失方向 
(disoriented). 因此作者们感到有进一步研究和实验的 
必要。 

另一方面，会议中有一个专门的分会议讨论智能 
开发环境，丹麦皇家教育研究院的安清逊 （ Andresen) 
提出了第二代 专家系统应用于教育的课题 (Critiguing 
Project ) ，他认为教育专家系统的任务不是分发 
(deliver ) 学习而是支持 (Support ) 学习，应该用于评价 
学生的计划、求解、分类、判断等,应该在于告诉学生做 
什么而不是告诉学生一个答案,帮助学生估计和形成 
自己的方法。他已经建成了一个原型系统 VANDVID ， 
用于环境教学。 

三、为职业训练服务 

这次会议给我的另一个很深的印象是，人们十分 
关心计算机辅助职业训练 （ Computer — Based 
Tminning )， 不但形、成了一个方面，190篇发表的论文 
中有近40篇论文#及这一领域,而且许多新技术和新 
设想也与 CBT 有关。 

随着计算机辅助教育的发展与普及，越来越多的 
企业家重视辅助教学的应用，考虑将其引入到公司的 
职工培训中去。日本经营者协会 (JMA) 的 CAI 委员会 
在86年与89年作了两次对企业经营者的调查，其结 
果如表2 所示： . 



86 年调査 

89 年调査 

已经使用 CAI 的公司 

6. 1% 

22.5% 

准备考虑应用 CAI 的公司 

35.8% 

47.4% 

其 

了解 CAI 是什么的 

50. 1% 

61.3% 

中： 

不了解 CAI 是什么的 

20.4% 

19.5% 

准备将来研究的 

61.9% , 

64.5% 


表 2 JMA 调查综合表 


可以看出，日本公司主要是中小企业)的经营者对 
计算机辅助教学的认识是越来越重视，已经应用的公 
司显著增加,而考虑应用的公司也在增加。他们考虑的 


/ 
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主要原因是 ：（1) 巨大潜力 K 2) 使人们能够进行 管理； 应用于大中小学校，很少进入企事业培训。而在企事业 
(3) 当前教育方法存在问题 K 4) 对高层管理的 支持； 培训中发挥计算机辅助教学的作用，一方面可以提高 
(5) 未来属于计算机 时代； （6) 目前的教育成本应当减 企事业工作人员的素质和能力,培养他们使用现代信 

少等等。 息技术的意识和技术;另一方面，企事业的投资与购买 

欧洲共同在开展一个称之为 DELTA (Developing 可以扩大课件的应用面和降低课件的开发成本，无疑 

European Learning through Technological Advqnce ) 的远 将促进计算机辅助教学的发展。我们应当关心这一领 

程计算机辅助训练系统，通过远程通信网，发挥各国专 域的发展和向企事业管理人员进行宣传和解释。 

家的各种专长，对共同体各行业的专业人员进行培训。 世界计算机教育应用的发展变化是多方面而错综 

在 DELTA 计划中还要解决不同母语国家的语言转换 复杂的，以上所谈只是自己粗浅的印象。希望我们能不 

问题。 断注意这一学科的发展趋势，结合我国国情，开辟自己 

相比之下，我们国家的计算机辅助教育主要还是 的道路，赶超世界先进水平。 


• 编程技巧 • 

立体框架的最短路线问题 

广西南宁市 林涛 

1988 年广西南宁市计算机程序设计竟赛复赛时 
出了 一道颇有趣味的问题 ：空心 框架构成六个单佴正 
立方休/，如图所示。 





沿框架从左下外顶点走到右上内顶点；共有多少 
条最短路线？ • 

显然，最短路线要走六条 棱：向 右要走三条棱，向 
上要走两条枝，向里要一条棱。我们在向右的棱上标上 
1，向上的棱上标上2,向里的棱上标上3。则111223, 
111322,321211等都是最短路线。即由三个1、两个2、 
一个3组成的六位数都表示了一条最短路线，符合条 
件的最小数是111223,最大数是322111，用循环语句 
判断这两个数之间的所有数是否符合条件，即由三个 
1、两个2和一个3组成。于是，有 程序： 

10 M =0 (计数器清零） 

20 FOR 1=111223 TO 322111 
30 T = I ： D =10000 (T 为工作单元） 

40 FOR K =1 TO 3 

50 S ( K ) = 0 ( S ( K ) 分别存放 1、2、3 的个数） 

60 NEXT K 
70 FOR J = 1 TO 6 


80 N = INT(T/D) (分离最高位） 

90 IF N>3 THEN 200 

100 IF N = 0 THEN 200 

110 S(N)=S(N) + 1 (累计 1 、 2、3 的个數） 

120 T=T—N*D (取消 T 的最高位） 

130 D=D/10 
140 NEXT J 

150 IF S(l)<>3 THEN 200 

160 IF S(2)<>2 THEN 200 

170 IF S(3)<>1 THEN 200 

180 M=M+1 

190 PRINT I 

200 NEXT I 

210 PRINT 

220 PRINT“M = ” ; M 

230 END 

解題的算法是非常巧妙的，将路线的方向量化，可 
惜的是在求最短路线的具体算法上还稍欠考虑，致使 
编出的程序不够简洁 。事 实上，由于每条最短路线由三 
个1，两个2,一个3组成的一个六位数表示，这六位數 
字的各个数字之间为10,六个數字之积为12,抓住这 
点利用一个条件转移语句便能解决问题。 

10 M=0 

20 FOR A=1 TO 3：FOR B= 1 TO 3：FOR C=1 TO 3 
FOR D=1 TO 3：FOR E=1 TO 3：FOR F= 1 TO 3 
30 IF A+B+C+D+E+F=10 AND A * B * C * D 
*E*F=12 THEN M = M+1-PRINT A,B ； C ； D ； 
E ; F 

40 NEXT F,fi,D ， C ， B，A 
50 PRINT“M=，、M 
60 END 

当然，为了更进一步从数学的排列组合角度来考 
虑，这是个含重复元素的全排列问題，其结果就是 

这时，编出的程序更简单，纯粹就是一条直接计 

算的 PRINT 语句，但这已经失去计算机程序设计的意 
义了。 - 
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• 辅助教学与研 究 • 

平面几何脚本编写方法初探 

浙江鋇兴师专陈其康 

随着计算机科学的不断发展，计算机在教育领域 
上的应用越来越广泛，并逐渐成为教育技术现代化的 
主要内容之一。计算机辅助教学应用在数学中，对提高 
教学质量，改变传统数学教学方法有很大影响。 

但是，辅助教学的编程过程尤如拍一部电影一样， 
其质量与效果主要决定于两个 方面: 一是脚本质量 ，二 
是编程水平。如果这两方面稍有偏废，就会直接影响到 
计算机辅助教学所起的作用。本文针对第一个问题，如 
何编写平面几何复习课件脚本作一探讨。 

一、 编写脚本的认识 

平面几何是中学数学教学的一个难点，因为几何 
学本身是一门逻辑性较强，严谨性要求很高的学科，要 
求学生在有限的教时内完成学习内容,有一部分学生 
是很难收到良好的效果的。如果利用现代化的教学手 
段——计算机辅助教学,那么教与学的困难很容易得 
到解决。 

辅助教学，首先是编制 CAI 系统的教学程序。教 
学程序是根据什么来编制呢？当然不能完全套用现行 
教材，因为现行教材是传统的教学模式:教师讲，学生 
听; 教师写，学生记，……，是封闭式。而 CAI 教材它的 
教师是计算机，是允许学生自己操纵的“教师”，它是启 
发式、研讨式和开放式的教学。因此把传统教材编制成 
为 CAI 教材，不仅在内容上，而且在教学方法上都要 
求来一个彻底的改造。可以说，这是传统教材向 CAI 
教材的一种转化，是传统敎学向现代教学过度的桥梁， 
她所起的作用并不亚于排球比赛的二传手。因此只有 
编写好脚本，才有可能编制好 CAI 教材。对于平面几 
何复习用的辅助教学课件脚本，更显得它重要。 

二、 编写脚本的原则 

上面已谈及,计算机辅助教学的程序编制不能完 
全套用现行教材，那么把现行的教材内容转化为 CAI 
教材在内容和教学要求上怎样才能保持一致呢？我们 
认为，编写脚本首先要遵守以下二个原则 :第一 个原则 
脚本应保证现行教材内容的完整性，不能断章取意，否 
则辅助教学就达不到通过复习来巩固和加深所学过的 
知识并使之系统化，也不能实现利用微机针对不同水 
平提供不同学习程序，以实行个别教学的要求。 

几何复习课件每章的脚本的栏目主 要是： 

内容要点(可以随机选取） 

I 知识系统. . 

I 解题范例 

I 自测或练习 

IV 题库 

在三角形这一章中内容十分丰富，基本概念有40 
个，公理、定理共有27个，基本作图5个。在编写脚本 


时为了保证内容不漏不滥，我们在知识系统一栏中把 
这些内容分成四大部分，8卩 （I ) 三角形主要元素的分 
类 ； （n ) —个三角形的边角关系 ； （m )两个三角形的全 
等关系；（ IV )基本作图及对称图形。每部分再分细目， 
又如（丨）又分成三部分：（1)边的关系';(2)角的关系 （ 
(3) 边角关系。 

由于 CAI 系统所采用的教学程序与传统的教学 
程序有一定的联系 ( CAI 系统通常有以下几种模 式:指 
导模式、练习模式、模拟模式），因此编写几何脚本的第 
二个原则是既要有利于微机配合传统教学，又要有利 
用微机的课件研制，特别是对数据、图形和符号等的处 
理。这样才不会削弱教材内容，降低教学要求，且能达 
到理想的辅助教学效果。 

三、编写脚本几个重点问题的处理 

1. 应有循序渐进，向前兼容的指导思想 

利用 CAI 系统进行辅助教学的研制过程中，很重 
要而且很难解决的问题是如何把课堂教学形式的教材 
编成 CAI 教材。在一般的情况下，课件的脚本由专业 
教师编写,但这些教师并不熟悉程序设计，而反过来恰 
好程序设计的计算机技术人员又过多的考虑计算机的 
智能开发，但并不很了解专业知识教材的教学要求。对 
这个问题只有扬长避短，加强联系，互相学习，互相配 
合来得到解决。对专业教师需要学习一点 CAI 程序设 
计的有关语言和基本方法，如 BASIC 语言和微机的基 
本操作方法，程序的基本结构——框图等等。这样，专 
业教师才能不受传统教材的束缚，把脚本逐步向 CAI 
教材靠近。如在编写三角形一章题库，我们首先把传统 
教材这一章中的例题、练习题、习题梳一梳辫子，再由 
浅入深按知识要求把它分成 A 、 B 、 C 三组，每组又分成 
五大类，每类五小题，且按易到难排列。这种编排有利 
于充分发挥微机的优点，进行练习和测验，以检査学习 
效果。 

微机编程人员尚须充分了解专业教师编写脚本的 
意图，了解传统教材的教学要求，尽可能地避免 CAI 
教材脱离辅助教学的实际，举例说明。 

例1、 已知: AD 是 AABC 的中线，若 AB > AC ， （如 
图一），求 证: ZKZ 2. 


A 



本例的证法较多，其中之一，若取 AC 中点 E ， 连结 
DE , 即可利用三角形中位线的知识就能较简洁地给以 
证明，这是一种较好的证明方法。但是学生在三角形一 
章中没有学过中位线这一概念，在编程过程中就不能 
作为一种方法编入程序，否则知识超前，违背了循序渐 
进、向前兼容这一教学原则，这一点要十分注意。 

2. 知识层次清晰、解题思路方法多样 
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利用 CAI 教材向学生讲授课程内容叫指导模式， 
这与教师在课堂上讲,黑板上写的模式相类似。传统教 
学教师可利用黑板把整个解题过程和思路都能清晰地 
表达出来，而微机的屏幕小，不可能一次性显示解题过 
程。但是由于微机的语言和程序设计具有较大的灵活 
性，及程序变化的多样性的特点，可以配备丰富的辅助 
软件，使学生在较短的时间内掌握很多内容，非但弥补 
了屏幕小的局限而且比传统教学更显灵活。于是专业 
教师应积极探索，把每一个所要讲解问题的有关内容、 
解题途径及可能遇到的问题等要层次清晰、思路方法 
多样有机地编入脚本，为计算机编程提供丰富的知识 
“资源”。例如，在解题范例这一栏目，每一道例题的脚 
本就需包括以下一'些方面的内容：（1)题目、图形和解 
题思路分析； （2) 各种各样的解题方法(知识不超前）； 
(3) 有关论理、论据应配备选择填空 〆 4) 解题过程中可 
能出现的**负迁移”>(5)反映知识之间从属关系的树杆 
式逻辑结构等等。 

3. 选题要有典型性 

目前 CAI 系统已逐趋智能化，编写脚本必须考虑 
怎样体现专业教师的教学方法的个性和引导学生的思 
维的功能，让计算机的教学更好地发展学生的智能，从 
而培养学生分析问题和解决问题的能力。为了达到这 
一目标，脚本中选题应具有典型性，解题方法应标准 
化、规范化、智能化。 

举例说明 

例2、已 知：点 C 为线段 AB 上一点， AACM 、 
△ CBN 是等边三角形，求 证 : AN = BM (如图二） 



图二 


分析 :（ 略） 

证明: 通过分析请选择由哪一组三角形来证明？ 

( 1 ) AACN 和 AMCB 

(2) AAMN 和 AMBC 

(3) AAMB 和 AANB 

选 （1) 正确，推理过程(略） 

选 (2) 只有 MN = MN , 条件不足，重选。 

选 (3) 只有 AB = AB ， 条件不足，重选。 

-完成本题证明后，请继续考虑以下 问题： 

1) 想一想 MN>*|~(AM + MN + NB ) 怎样证明？ 
(分析证明略） 

2) 若 AN 与 CM 交于 P 点， BM 与 CN 交于 Q 点， 
问 APCQ 是什么三角形？ 

3) PQ // AB ? 图中有几组平行线？ 

4) ZMAN + ZMBN 是多少度？为什么？ 

5 ) 如果延长 AM 和 BN 交于 D 点，欲证 AN = BM 


除上面方法外，还有新方法吗？ 

这道范例选自平面几何现行教材第 三窜复 习参考 
题三。通过这道题的解法和引伸，计算机就能充分扮演 
教师的“角色”大显身手，开发学生的智能。 

4. 特殊问题特殊处理 

几何教学有一定数量的作图题，传统教学要求学 
生用尺规在黑板或纸上完成，但微机很难完成这一要 
求，对作图问题的辅助教学要作特殊处理，一般采用以 
下两种 方法： 

U ) 模仿式，即微机在屏幕上利用工具软件显示画 
图过程，学生模仿它在纸上画，帮助学生学习画图。 

(2) 核对 式:即 根据教学要求，学生先在纸上用尺 
规进行作图，再由计算机检査自己作出图形是否正确。 

这两种形式都切实可行，既发挥计算机快速地在 
屏幕上描绘图象的功能，又培养学生用尺规画图的能 
力。以下是模仿式作图一例脚本。 

例3、已知， AACB , 求作一点 P , 使 P 到 / A 两边 
的距离相等，且 PB = PC (如图三） 



分 析:请 想一想，请 选择： 

(1) 到两边的距离相等的点 P 应在_ 

上。 

(2) 使 PB = PC 的点 P 应在_上。 

(3) 既满足 （1) 又满足 （2) 的 P 点应是_和_ 
的交点。 

选择 

1. BC 的中垂线 

2. ZA 的平分线 

3. AD 和 MN 的交点 
AB 和 BC 的交点 
MN 和 BC 的交点 

根据以上分析，看屏幕画图完成以下作法 

作法:1)作__平分线 

2) 作_中垂线 

3) __和_交于_点， 

_点就是所求的点。 

请同学们在纸上用尺规再画一画。 

把一个传统的教材编写成 CA 1 教材的脚本，我们 
仅是一种探索。由于计算机辅助教学是种很有前途的 
新型教学，她不仅是一种计算机科学，也是与教育学、 
心理学及各种各科专业教师紧密联系的一门先进科 
学。因此我衷心希望计算机辅助教学能迅速发展起来， 
进一步促进青少年的学习，开发青少年的智能，为现代 
化建设服务。 
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实用、简单的 REM 保护 

傅剑 


大多数 APPLEe 或 CEC BASIC 程序对 LIST 命 
令的保护是米用修改 $ D 6 地址，使它的值大于 $7 F , 
引起 LIST 命令被忽略，而执行 RUN 命令，其实这种 
保护很容易被解除，只要修改 $ D 6 地址的值或进行 
中西文切换，都能使$06的值重置。 

现在，介绍一种 REM 保护，它不但能肴效地使被 
保护程序不被 LIST , 而且可以根据程序设计者的要 
求使程序产生各种动作 〆 如删除程序 FP 命令，格式 
化磁盘 INIT 命令等等任何一种 DOS 命令）以示对 
LIST 者的惩罚。 

具体才法有二种，分别为手动设置和自动设置， 
其中自动设置是为那些 BASIC 程序在 RAM 中的存放 
格式还不十分了解的读者按排的。 

1. 手动设置：’ 

首先在被保护程序的第一行写上 “REM * * FP 
(或任何 DOS 命令）”。即如下 形式： 


10 REM * * FP 



被保护程序 



然后键入 “ CALL -151 回车”,进入监控糢式后，键 

入： 

» 806: 0 D 回车 
* 807,04回车 
即可。 

2. 自动 设置： 

当完成了在被保护程序的第一行输入 “ REM * * 
FP (或任何 DOS 命令）”语句后，你可以在 BASIC 模式 
或监控模式键入 CALL 768或 300 G 命令即可完成上 
述保护。 

另外，利用在 REM ‘ 后加 “ CTRL — H 回返码”能隐 
藏程序(如关键的计算公式或程序作者姓名等一些不 
愿被人改动或 LIST 的部分）并可以加入假程序速惑 
LIST 者。 

具体方法有二种，分别.为手动设置和自动设置。 


其中自动设置是为那些对 BASIC 程序在 RAM 中的存 
放格式还不十分了解的读者桉排的。 

1. 手动 设置： 

首先在被保护程序后祐入 “REM * ****** 
******************** ^ 
序”语句，即如下 形式： 

行号程序 “REM *************** 
************* 假程序 
注意: “ ”數应等于被保护程序在显示屏上的实际所 

占位罝长度+ 6个，并且假《序的长度必须大于被保 
护程序。 

, 然 后键人 “ C 乂 LH 51 回车”进入监控模式，在 

$ AF *$ B 0 单元中找到程序结束地址， 键入： 

*801 •程序结束地址回车 
在显示的内容中，找到一联串的内码 2 A , 并用08 
代替，即可完成上述保护。 - 

2. 自动 设置： 

在完成被保护程序后插入 “REM * ****** 
********************* 
程序”语句的工作后，你可以在监控或 BASIC 糢式中， 
键入 30 BG 或 CALL 779命令，即能完成上述保护。此 
种保护对程序的正常运行无任何不良影响。机器程序 
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自己动手改造 NIBBLES AWAY H 


赵铮 

NIBBLES AWAY I C 3 版（以下简称 NAn ) 是美 
国 APPLECATIONS 公司于1983年推出的 NIBBLE (半 
字节 ') 复制软件，由于其 BIT COPY (位拷贝）功能十分 
强大，所以在当时即便是不修改任何参数，也能复制绝 
大多数的加密软件。现在，虽然出现了许多新的加密方 
法，如 BIT INSERTION (位元加入）、 NIBBLE COUNT 
(半字节计数）等。但是， NA II 有强.大的 TRACK BIT 
EDITTOR (磁道位编辑）和 MODIFY PAPAMETERS (修 
改拷贝参数） 功能。 用前一种功能可以分析出软件的加 
密方法 t 用后一种功能可以修改 NAH 的拷贝参数，因 
此，上述新的加密方法也不难对付。正因为这样，所以 
NAI 一直深受广大 APPLE I 机和 CEC-I 机用户的喜 
爱。但是, NA II 问世之初 I , 一般的磁盘机最高只能读写 
到$ 23磁道，所以 NA n 限制了最高拷贝磁道为$ 23, 
随着磁盘机性能的'不断提高，目前，绝大多数的磁盘机 
已能_写到$27甚至$29道。于是，加.密者就将信息 
存储于^$23以上的高磁道。这样.，原版的 NAI 就无能 
为力了。怎样才能使 NA 1 I 拷贝到$29道呢？ 

首先，请大家看下面一段程序（见程序 一）： 

NAI 在接受到使用者输入的拷贝结束磁道的数 
字字符（包括小数点和“回车”)后，便将其 ASCII 存放 
在 $04 D 8 以后的一段地址。例如，输入的结束磁道数 
是$ 23 | ,那么，$ 04 D 8 则放入 B 2 B 3 8 D , 而这段程序 
即是将这些 ASCI 字符还原成所输入的磁.道号数。通 
过分析不难发现，程序，先将道号的高四位字符的 ASC 
I 码取出，然后利用 _ EOR 运算，屏蔽掉高位。再以输入 
结束磁道为$23为例，程序先取出的是 $ B 2 ,EOR 
$ B 0 后就变成$ 02,然后在$ 1806处进行一系列复 
杂的移位运算。在 $180 C 处完成将累加器字符移至 
$9 F , $ A 0 两个单元，仍以输入结束磁道为$23为 
例，在$ 1806至 $180 B 处用了四个 ASL 将$02变成 
了 $4 d ; 然后再用四个 ASL 、 四个 ROL 移出累加器一 
位数据至 C (进位）标志，再将 C 标志利用循环左移至 
$9 F 和$ A 0,最后恰好使$9 F 和$ A 0处为$02，再 
重复执行一次，于是将$03也同时移向 $9 F * $ A 0 
处，原来 $9 F *$ A _0 嘩于$02,再循环左移四次后等 
于$20,再加上累加器移过来的$03,恰好等于$23。 
假如下面的字符是“回车”，那么其 ASCII 字符就是 
$8 D 。 在 $17 F 9 *$BOEOR 以后，变成了 $3 D ，$3 D 
大于 $0 A , 所以程序就在$ 1805处返回，接着执行下 


赵众才 

面一段程序 .( 见程序 二）： 

这段程序的作用是将磁道数 （$9 F ) 乘以 2( 乘2 
的目的是为了便于判断半磁道）后返回。接着执行的是 
$16 AC 的一段程/序（见 程序 三）， 

这段程序用 f 判断磁道数乘以2后是否小于$47 
($23 *2+1)，如果小于则继续执行程序，如果大于则 
调用发音子程序 $127 D ， 使机器发出“嘟”的声音提示 
出错后返回，要求重新输入。行文至此，大家应该发现 
只要将 $16 B 3 处的 $47改成 $54( $29. 5 * 2 + 1), 
即能使 NA I 拷贝到$29._5磁道。至于 SECTOR EDI ¬ 
TOR TRACK BIT EDITOR 等功能的修改原理与此相 
.同。 

下面介绍具体的修改 方法： 

大家知道 NA II 的 SECTOR EDITOR 中有一个 
DISK SCAN 功能，它的作用是在磁盘上寻找由使用者 
输入的若千个字节，.并显示出这些字节所在的磁道、扇 
区以及从该扇区的第几个字节开始，利用这个功能即 
可方便地找出 NAI [判断磁道数程序所在的磁道与扇 
区，然后用 SECTOR EDITOR 将其读入，用上面介绍的 
原理修改后再写入即可。下面列出寻找 NAH 各功能 
判断磁道程序所需的 字节： 

(一 )NIBBLES AWAY II 功能： 

1. STARTING TRACK ： 12 4 C 6 B 16 

2. ENDING TRACK ； 12 4 C 9 F 16 

3. TRACK INCREMENT ： F 0 04 C 9 47 90 06 

(二） TRACK BIT EDITOR 功能： B 0 08 85 9 D 

(三 ) SECTOR EDITOR 功能 ： F 0 07 C 9 24 

注： SECTOR EDITOR 功能须将 C 9 24 的 $ 24 改 
成 $2 A , 其余均只须将程序中的 $47 改成$54即可。 

例如，欲修改 ENDING TRACK 的判断程序，其方 
法如下： 

1 BOOT 起 NA I 磁盘； 

2 键入 “ S ” 进入 SECTOR EDITOR , 

3 键入 “ D ” 进入 DISK SCAN ; 

4 键入六个回车，在 STRING —> 后鍵入 124 C 9 F 
16,再键入回车； 

5记下屏幕上显示的磁道、扇区和字节数。 如：屏 
，幕上出现 15/06. 03表示这段程序在第$15磁道、 
$0 6 扇区，从第$0 3 个字节开始。 

6键入任意键，回到扇区 编辑； 
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7 键入 “ T ” 输入记下的磁道数；键入 “ S ” 输入记 
下的扇区_数；键入 “ R ” 将扇区读入内存； 

8根据字节数找到判断程序，将程序内的$47 
改成 $ 54 (SECTOR EDITOR 除外）； . 

9键入 “ W ” 写入扇区。 

当然，上面的工作仅仅只是完成了使 NAH 能拷 
贝到 $29. 5磁道，如果要使显示与之相符，还应作如 
下 修改： 

(一） 利用 DISK SCAN 功能找出以下两组字节所 
在的扇区： 

1 0 A 03 20 54 52 41 

2 A 5 9 D 4 A A 2 00 

(二） 将第一组字节所在扇区的 0 A 改成08; ' 

(三） 将第二组定节所在扇区的 C 90 C 改成 C 9 0 E , 
E 9 0 C 改成 E 9 0 E ；69 0 C 改成69 0 A 。 

这时你再 BOOT NA II 就会发现它不仅能拷贝到 
$29. 5磁道，而且画面的显示也与拷贝过程同步了。 

最后说明一点，本文所介绍的方法.只适合于 NA 
n 的 C 3 版。至于其它版•本，因其功能都远不及 C 3 版， 
所以修改起来更为简单方便，读者可根据本文介绍的 
原理，自己拟定修改方案。 


程序一 





17 F 0- 

A 0 

00 

LDY 

# $00 

17 F 2- 

84 

9 F 

STY 

$9 F 

17 F 4- 

84 

A 0 ‘ 

STY 

$ A 0 

17 F 6- 

B 9 

D 8 04 

LDA 

$04 D 8 ,Y 

17 F 9- 

49 

B 0 

EOR 

# $ B 0 

17 FB - 

C 9 

0 A 

CMP 

# $0 A 

17 FD - 

90 

07 

BCC 

$ 1806 

17 FF - 

69 

88 

ADC 

# $88 

1801- 

C 9 

FA 

CMP 

# $FA 

1803- 

B 0 

01 

BCS 

$1806 

1805- 

60 


RTS 


1906- 

A 2 

03 

LDX 

# $03 

1908- 

0 A 


ASL 


1809- 

0 A 


ASL 


180 A - 

0 A 


ASL 


180 B - 

0 A 


ASL 


180 C - 

0 A 


ASL 


180 D - 

26 

9 F 

ROL 

$9 F 

180 F - 

26 

A 0 

ROL 

$ A 0 

1811- 

CA 


DEX 


1812- 

10 

F 8 

BPL 

$ 180 C 

1814- 

C 8 


INY 


1815- 

C 0 

OF 

CPY 

# $0 F 

1817- 

F 0 

EC 

BEQ 

$ 1805 


1819- 

4 C 

F 6 

17 

JMP 

$ 17 F 6 

181 C - 

A 2 

OF 


LDX 

# $0 F 

181 E - 

A 9 

A 0 


LDA 

# $ A 0 

1820- 

20 

FD 

12 

JSR 

$ 12 FD 

1823- 

CA 



DEX 


1824- 

DO 

F 8 


BNE 

$ 181 E 

1826 - 

60 



RTS 
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17 D 2- 
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9 F 
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$9 F 
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ASL 
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85 

9 F 

STA 

$9 F 


17 D 7- 

60 


RTS 
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16 AC - 

A 5 

51 


LDA 

$51 

16 AE - 

DO 

0 E 


BNE * 

$ 16 BE 

16 B 0- 

A 5 

9 F 


LDA 

$9 F 

16 B 2- 

C 9 

47 


CMP 

# $47 

16 B 4- 

90 

06 


BCC 

$ 16 BC 

16 B 6- 

20 

7 D 

12 

JSR 

$ 127 D 

16 B 9- 

4 C 

9 F 

16 

JMP 

$ J 69 F 

16 BC - 

85 

9 E 


STA 

$9 E 

16 BE - 

20 

80 

04 

JSR 

$ 0480 

16 C 1- 

A 5 

9 E 


LDA 

$9 E 

16 C 3- 

20 

3 C 

16 

JSR 

$ 163 C 

16 C 6- 

20 

1 C 

18 

JSR 

$ 18 lC 

16 C 9- 

A 5 

51 


LDA 

$51 

16 CB - 

DO 

03 


BNE 

$ 16 D 0 

16 CD - 

4 C 

72 

14 

JMP 

$ 1472 

16 D 0- 

4 C 

6 B 

16 

JMP 

$ 166 B 

16 D 3- 

20 

DA 

05 

JSR 

$ 05 DA 

16 D 6- 

A 5 

71 


LDA 

$71 

16 D 8- 

85 

99 


STA 

$99 

16 DA - 

20 

67 

1 A 

JSR 

$ 1 A 67 

■ 電 ■ .: ■ ■ 爾- ■一难 ■ — 1 

• 软件介绍 • 


屏幕汉孛移动程存 


作者根据 Apple II 高分辨率图象绘图原理，编制 f 一个 
汉字移动(左移)程序,句使显示在高分辨率第一页上的一行 
汉字很平稳地往左移动，给人以自然而顺畅的感觉。完全达 
到一个专用字幕机所产生的字幕左移的效果。该程序在汉字 
BASIC 文本编辑程序支持下，已成为一个电视台用 Apple 机 
字幕生成系统，为用 Apple 机做字幕机提供了软件支撑。加上 
锁相系统，使得在播出节目期间，可随时播出各种预畀或广 
告。对输入的内容可进行增、删、改。内 容可由 键盘或磁盘输 
入，也可存入磁盘。程序设计新颖、效果极佳。 

• (會立尧) 
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• 加解密技术 • • 加解密技术 • 

一种文件名保护方法 BASIC 程序高级加密法 

保定市财税中专微机室杨建明 西安电子科技大学物理系肖成生 


本文介绍了一种 APPLE soft basic 程序文件的 
保护方法一文件名保护法。其中详细介绍了控制字符 
法，隐藏文件名法、控制符与消隐符混用法。 

APPLE SOFT BASIC 程序文件的调入和运行，都 
离不开文件的名称,得不到正确的文件名，该文件就无 
法调用，也无法列出程序清单或修改程序，下面主要介 
绍对文件名进行保护，从而实现对文件的保护。 

1.使用控制字符法 

在文件名中使用控制符进行文件保护是简单易 
行,应用较广泛的文件保护法。由于利用 CATALOG 命 
令列目录时不能显示出控制符，因而不能识别正确的 
文件名，也就不能把程序调入内存，列出程序査看和修 
改。 

如.•存盘时在文件名 ABC 中插入控制符，显示目 
录列表时只能显示出 “ ABC ”： 



CATALOG〆 
A 002 ABC 

用“ LOAD ABC ” 〆 屏幕显 示：“ FILE NOT 
FOUND ”， 所以不能调入这个文件，也无法査看和修改 
程序，从而实现了程序保护。 

2. 隐藏文件名字符法 

在 APPLfi DOS 系统中，除正常字符和控制字符 
外，还有一类特殊功能的字符，也可以用来对文件名进 
行保护。如 CHR $ (8)，其 ASCI 码是 BS 键，可用来隐 
藏输入的字符，此时用 CATALOG 命令不能列出完整 
的文件名，甚至完全不显示。 

使用 CHR $ (8) 保护方法 如下： 

存盘时 PRINT CHR $ (4) “SAVE ABC ”, CHR 

$ ⑻〆 

显示目录 CATALOG〆 
A 005 AB 

这样文件名中隐藏了字符 C ， 实现了文件名保护。 

3、 控制符与消隐字符混用法 
综合地使用上述两种方法 ，如： 

PRINT CHR $ (4) “SAVE ABC CTRL—0 ”； CHR 

$ ⑻〆 

这样存贮的文件很难査出文件名中隐藏的控制字 
符，从而使程序文件得到了有效地保护。 

上述的加密方法均是在软件基础上使用一些技巧 
实现的，称之为“软保护”。这些方法容易实现且行之有 
效，应用中往往几种加密方法结合使用，因为单一的保 
护容易被破解。 


使用这种新方法加密的程序，即便对加密法的作者也一 
样难以破解！可以很好保护你的程序和数据。 

下面就介绍程序加密的具体 步骤： 

进入监控状态，键入 r 面机器码。 


0300- 

A 9 

7 F 

20 

F 0 

FD 

A 2 

00 

E 8 

0308- 

2 C 

10 

CO 

20 

DD 

FB 

AD 

00 

0310- 

C 0 10 

F 8 

C 9 

8 D 

F 0 

0 D 

49 

0318- 

7 F 

•9 D 

70 

03 

8 A 

20 

F 0 

FD 

0320- 

E 0 

4 F 

DO 

E 3 

86 

FF 

E 0 

01 

0328- 

F 0 

34 

A 0 

00 

B 1 

67 

85 

F 9 

0330- 

C 8 

B 1 

67 

85 

FA 

B 1 

F 9 

85 

0338- 

FC 

88 

84 

FB 

B 1 

F 9 

A 8 

A 2 

0340- 

00 

E 8 

E 4 

FF 

DO 

02 

A 2 

01 

0348- 

C 8 

DO 

02 

E 6 

FC 

BD 

70 

03 

0350- 

51 

FB 

91 

FB 

A 5 

FC 

C 5 

B 0 

0358- 

D 0 

E 7 

C 4 

AF 

DO 

E 3 

20 

8 E 

0360- 

FD 

A 9 

61 

20 

F 0 

FD 

60 

FF 

0368- 

FF 

FF 








返回 BASIC 状态， 键入： 

BSAVE JM • SUB , A $ 300 ，L $ 69 〆 
然后输入或从盘上把要加密的 BASIC (浮点）程序送入 
机内。在程序前加入两条 语句： 

0 PRINT “THIS PROGRAMME HAD Jia Mi ! ”： 

PRINT CHR $ (4 ),“BLOAD JM • SUB ”: CALL 768 〆 
1 REM JIA MI BY XIAO〆 
再 键入： 

CALL 768 〆 

这时屏幕上出现反相的“?”并不断响铃。键入1一79个 
除“ 〆 ”和 CTRL — RESET 外的任意键盘字符组成的密钥并以 
“ 〆 ”键结束(不输密钥而直接按“ 〆 ”，将不加/解密）。出现反 
相的“!”表示加密结束。 

加密后 键入： 

SAV XX XX (文件名 )〆 

至此已完成了程序加密，并以 XXXX 名存盘。应记住 
加密时所用的密钥。 

当要运行加密了的 basic 程序时。键入： 

RUN XXXX (加密程序名 )〆 
程序会自动把 JM * SUB 子程序调入内存，并呼叫它。这 
时会出现加密时显示的“？”并响铃，键入加密时所用的密钥。 
如果正确，则程序将继续运行，否则无法执行下去(如果驱动 
器指示灯灭后不出现任何信息，按一下 CTRL — RESET 即 
可)。 

本方法在 APPLE— 1 e 上通过 
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“应用实验与制作” 

栏 q 主持人 的话： 

中华学习机不仅可以用于学习，还可以应用于工 
作、生活和其他方面的学习，例如，我们可以应用它来 
挑选和检修家用电器、控制电铃、辅助各科教学等等。 
充分发挥中华学习机在过程控制、信息处理和科学计 
算等方面应用的功能，将使它倍受用户的亲睞，从 而推. 
动我国计算机工业的发展，加速计算机在我国的普及。 

开辟本栏目，正是为了鼓励大家开展中华学习机 
应用实验，研制性能价格比高的应用制作，并尽快地组 
织试用推广，在试用推广中 ，集 思广益，不断改进。对于 
刊奁在本栏目中的比较成熟的应用制作，将组织评审 
并梃供给有关厂家加以选用，使之发挥社会及经济故 
益。 

有些简单的应用实验，其实用价值可能暫时不高， 
但可积累经验与數据，培养动手动脑的能力，为今后研 
制实用制作打下基础。对于这些实验，本栏目也将予以 


录用。 

欢迎广大读者及有关专家为本栏目投稿。 

来稿 要求： 

1. 要以中华学习机 CEC— I 型（及与之兼容的 AP ¬ 
PLE — I 等微型机）和 CEC—PC 型（及与之兼容的 
IBM—PC 等微型机）为背景，兼頋其它常见机型； 

2. 用方格稿纸工整书写，字数一般不超过 4 千 | 

3. 应用实验和制作中所需零件的型号和规格必须 
准确注明； 

4. 插困（尤其是电路困）应按标准清楚地绘制，并 
贴在文中相应位置，必要时可运当放大 t 

5 •有关程序最好用计其机打印，手写程序要注意 
检查无译 I 

6•应使读者看后即能动手模仿实验或制作； 

7 •如已试用或鉴定，请详细注明。 

8.来稿请寄给栏目.主持人胡礼和 
通信地 址:湖 北省武汉市武昌桂子山华中师范大 
学教科所 

邮政编码 = 430070 


筒易网络兼语音输入两用卡 


华中师大教科所胡礼和二汽一中吴岱 


该卡适用于中华学习机 CEC - I 型和其它的 AP ¬ 
PLE — I 型兼容机。 使用一个卡及适当长的联线，可将 
一台主机的信息传送到其它 60 台分机，也可实现两台 
主机之间的双向信息传送，从而共享软硬件资源(例如 
多台主机可共用一套外设、一校只需一套软件等等）， 
大大节省设备开支。单独使用该卡，还可将语音或磁带 
音乐输入主机内存及磁盘。需要时，用命令或 basic 
程序“播放”出来。该卡简称“网络/语音两用卡”(或“两 
g 卡 ”）。 

该¥的主要优点是价格低廉、性能价格比高。一般 
的局部网络联机 60 台约需 1 万 2 千元，此外，语音输 
入卡近200元一个。两用卡兼有以上两者的性能（略 
低，但可用人工补偿），而价格仅 180 元一块（联线自 
备，用话筒线即可，每米不超过1元钱）。该卡的安装操 
作简单，参照用户说明书即可自己动手,不必旅专人接 
受培训，也不必要求厂方派人安装调试。使用该卡还可 
使部分分机(中华机)每台 f 省近200元的成本。 

综上所述，该卡是一 适合我国国情的，值得全面 
推广的中华机 ( APPLE —丨机)配套设备，尤其适用于 
学校开展有关计算机应用的教学，以及计算机辅助教 
学、辅助测试和教育管理。 

一、“一对多”传送法 

所谓“一对多”传送，即是将一台教师用机内存中 
的程序或数据同时传送到多台学生用机，这里的程序 


或数据，包括各种 BASIC 程序(整数的或浮点的、硬汉 
字的或软汉字的）、机器语言程序和磁盘数据文件等 
等。如果是磁盘上的程序/可先调入教师用机内存。 

' 1.联线 方法： 

联线方法和图1 所示。 



从图1可见，两用卡上安有7个插座（均为 3. 
5mm 的）,左起第 1 个插座命令为 “A a ”、 第 2 个命名为 
“B ，、 第 3 个命名为 “B 人 ” 、第 4~7 个皆命名为 “ 八出”。 
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(1) 教师用机的联线 

将两用卡一块插在教师用机的任一槽口上，用随 
机录音线将主机的录音输出插座与两周卡上的 A 人插 
座联接起来（中华机是将录音线的五芯插头插进主机， 
将录音线的黑色输出插头插进 Aa 插座）。 

(2) 网络联线 

网络线一般用单芯话筒线即可，在一间普通教室 
内，联接30台机器大约需网络线50米左右。通过网络 
线，将各学生用机与插在教师用机上两用卡联接起来。 
两用卡上的 A „, 插座有 '4 个，可分别联接4个分路 - 
线,每个分路联线的长度不超过100米，始端焊有 3. 
5 mm 插头，以便插进两用卡的 A & 插座上。每个分路可 
用并联方式接接1〜15台学生用机，各并联岔口上分 
别焊有一个 3. 5 mm 插座(共1 〜 15个）。_ 

(3) 学生用机的联线 

用随机录音线将学生用机的录音输入插座网络联 
线上各并联岔口的插座联结起来（中华机是将录音线 
的五芯插头插进主机，将录音线的红色输入插头插进 
网络联线上的插座）。 

2.操作 步骤： 

(1) 从磁盘上将程序调入教 师用机 

(2) 键入存取程序的(磁带)命％ _ 

① 若传递 BASIC 程序 ( A 类），则需先在各学生用 
机上键入接收 命令： 

LOAD〆 屏幕显示 WAITING …… （等待） 

再在教师用机上键入传送 命令： 

SAVE〆 等光标出现后即完成传送。 

② 若传送机器语言程序 ( B 类），则可设程序在教 
师用机内存中的首地址为十六进制数 XXXX, 末地址 
为 YYYY 。 

a . 先在各学生用机上键入以下命令 I 
CALL — 1 5 1*/(母入监控状态） 

XXXX • YYYYR〆（R 即 Read 读） 

屏幕显示 WAITING ……（即请等待） 

b . 再在教师用机上键入以下 命令： 

CALL — 151 〆 

XXXX . YYYYW〆（W 即 Write 写） 

待光标出现后即完成传递 
C. 如果学生用机上没有出现 “ERR” 提示，则可键 
入运行 命令: XXXXG〆 

如果岀现错误，可重复步骤 a 与步骤 b 。 

二、“一对一”传递 

所谓“一对一’’传送，即是一次将一台学生用机的 
程序传送到教师用机的 内存。 如果教师用机配有驱动 
器或打印机，则可将学生的程'序存盘或打印出来。 

] .联线 方法： 


由于在教学中经常用到“一对多”，所以，此处介绍 
‘‘一对一”的联线方法，是在“一对多”联线的情况上作 
如下 改动： 

(1) 教师用机联线的改动 

将录音线拔出，改为用它将主机的录音输入插座 
与两用卡上的插座联接起来（中华机是将录音线 
的黑色输出插头从两用卡的插座拔出，将红色输 
入插头插进两用卡的插座）。 

(2) 网络联线的改动 

所需传送信息的学生用机在哪一分路，就把那一 
分路的网络联线始端插头从两周卡的 A U 1 插座拔出， 
改为插进插座_。 

(3) 学生用机联线的改动 

将录音线拔出，改为用它将主机的录音输入插座 
与网络联线上各并联岔口的插座联结起来（中华机是 
将录音线的红色输入插头从网络联线插座上拔出，改 
为用黑色输岀插头插进）。 

2.操作步骤： 

与“一对多”方式的先后次序相反， SP : 

(1) 先在教师用机上键入接收命令等待， 

( 2) 禺在 学生用机上键入传送 命令。 

相 途的命 令和方法与“一对多”方式相同。 

三、语音输人法 

当两用卡插在一台主机上单独使用时，还可以通 
过话筒或录音机将语言或音乐输入内存，然后以 B 类 
文件的形式存贮在磁盘上。在需要的时候，用命令或程 
序控制，“播放”这段语音。 

1. 话 筒输入 的联接线方法 

(1) 将两用卡上的所有插头拔下； 

(2) 将话筒(高阻抗)的插头插进插座(如果插 
头不匹配,应改为 3. 5 mm 的插头）； 

(3) 用录音线将 B ni 插座与主机录音输入插座联 
接起来，中华学习机是将录音线的红色输入插头插进 
B 出插座 ，将录音线的五芯插头插入主机。 

2. 录音机输入的联线方法 

(1,) 将两用卡上的所有插头 拔下； 

(2) 随机器的磁带机一般也可作为录音机使用，用 
录音线将磁带机的输出插座（标有“扬声器”或 ear 
等)与两用卡上的插座联接起来； 

(3) 与话筒输入的方法 (3) 同，此处略， 

3 . 语音输入及输出的准备 

欲用话筒或磁带先将声音输入计算机的内存，然 
后再“播放”出来，需键入两段机器码程序，在程序的控 
制下，才能完成上述工作。 

在监控状态下输入下面两段 程序： 

0300— A 2 00 A 9 20 8 D 14 03 AD 
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0308- 

60 

CO 

29 

80 

48 

A 0 

02 

88 

0310- 

D 0 

FD 

EE 

00 

90 

DO 

03 

20 

0318- 

2 A 

03 

68 

C 5 

or 

F 0 

E 8 

85 

0320- 

01 

8 D 

30 

CO 

20 

2 A 

03 

4 C 

0328- 

07 

03 

EE 

13 

03 

DO 

03 

EE 

0330- 

14 

03 

AD 

13 

03 

8 D 

3 F 

03 

0338- 

AD 

14 

03 

8 D 

40 

03 

8 E 

00 

0340- 

90 

C 9 

90 

F 0 

01 

60 

00 

00 

0350- 

A 9 

20 

8 D 

59 

03 

A 0 

0 A 

AE 

0358- 

FI 

2 F 

86 

01 

88 

DO 

FD 

A 0 

0360- 

06 

CA 

DO 

F 8 

A 6 

01 

F 0 

03 

0368- 

8 D 

30 

CO 

A 0 

04 

88 

DO 

FD 

0370- 

EE 

58 

03 

DO 

E 0 

EE 

59 

03 

0378- 

AD 

59 

03 

C 9 

90 

DO 

D 6 

60 


在泮点 BASIC 状态下键入下面命令，可在磁盘上 
建立一个名为 “INPUT SOUND ” (输人声音）的程序和 
一 个名为 “OUTPUT SOUND ” (输出声音)的 程序： 
BSAVE INPUT SOUND ， A $ 300, L $48 〆 
BSAVE OUTPUT SOUND ， A $ 350 ，t $ 30 〆 '. 

以后需要使用时，键入 命令： 

BLOAD 文件名 〆 

即可以从磁盘上分别调出这两个程序。 

4. 语音录入的操作 

(1) 按上面介绍的方法将线联接好； 

(2) 打开话筒开关讲话，或在录音机内放好磁带并 
按下 PLAY 键； 

(3) 在监控状态下键入运行命令 300 G〆 (声音输 
入过程中，计算机的扬声器应有嚓嚓声）； 

(4) 待屏幕再现“ * ”时，声音输入结束。 

此时，声音已转化成数据存贮到计算机内存的 
$2000— $8 FFF 单元。如果想将声音或音乐存进磁 
盘，可键入命令： 

BSAVE 文件名， A $2000， L $6 FFF〆 
5•用命令控制语音的输出 

(1) 将程序 OUTPUT SOUND 调入内存； 

(2) 将磁盘上的语音文件调入内存(如果声音已录 
入内存，可省略此步骤）； 

(3) 在监控状态下键入运行命令 350 G〆 
6•用 BASIC 程序控制语音的输出 

如果想在 BASIC 程序运行过程中演奏音乐或发 
出讲话声,可使用下面的程序段(假设存放声音的磁盘 
文件名为 MUSIC )。 

90 PRINT CHR $ (4 )“BLOAD OUTPUT SOUND ” 

• 100 PRINT CHR $ (4 )“BLOAD MUSIC ” 


110 CALL 848 

7. 调整录入时间及放音速度 
利用上面给出的声音输入输出程序，可录入一分 
多钟的声音，也可以放音一分多钟。如果想让录入声音 
的时间更长一点，可改变 $30 E 单元中的数（现为 
$02)。这个数越大，录入的时间越长，但声音的失真也 
越大;反之，这个数越小，录入的时间越短，声音失真也 
越小(注意，如果这个数为$ 00,那么就相当于 $ FF )。 

欲改变放音的速度，可以调整$ 360单无中的数 
(现为$06)。如果将其改小，声音的输出就会变快;反 
之，将其改大，就会变慢。不过，放音速度太快或太慢都 
会使声音失真。 

四、接线方法 
接线方法参见图2。 


芯线 





接线时应注意以下几点 ： 

1. 安装网络线与安装一般照明线类似，可将话筒 
线的芯线看成是火线，将屏蔽网线看成零线，将 
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5 mm 插座看作是灯头，按并联的方法连接。 

. 2•连接处一般应用焊锡焊接牢固。 

3- 严格按照“芯线接芯线，网线接网线”的原则接 
线。即芯线必须与芯线(或插头、插座的芯)相接，而屏 
蔽网线则与屏蔽网线相接，不能接反。 

4 .接头的裸露部分应用绝缘胶布包好，因为任何 
一处短路或断路都会影响传送。 

五、故障排除方法 

两用卡象照明电路一样，只要接线正确，接上电源 
就可以使用，无须对其元器件进行调试。下面是可能出 
现的几种故障及其排除 方法： 

1. 整个网络都不能工作 

①可能是两用卡没插好(接触不良或没插正）。应 
关掉主机，重新插好两用卡。 

■②可能是教师用机的录音机接口电路有毛病，可 
换一台主机。 

③如果每一分路上都出现故障，也可导致整个网 
络不正常。在此情 a 下'，应分别按下面介绍的方法检查 
每一分路。 

2. 某一分路不能正常传送 

① 可能性最大的是该路网络线存在断路或短路。 
可用万用表测量查找，最容易出问题的是插头、插座和 
接头处。另外，由于话筒线的芯线很细，安装时不能猛 
拉猛扯，安装后不能暴露在容易踢到的地方。万一出现 
芯线断路的故障，是很难查找和排除的。 

② 某一分路的学生用机都不能接受信息，可能是 
有某一台主机的录音线插错了（误插进录音输出插座 
或将输出接头插进 3. 5 mm 插座) : ，以至影响整个分路 
的接收。 

③ 可能是该路上某一个 3. 5 mm 插座本身短路，'应 
检査每个插座是否合格。 

④ 在给学生用机传送信息时，如果每个学生用机 
的屏幕上都出现 “ERROR” 或 “ERR” 的出错信息，可以 
重新传送几次。 

3 . 某一台学生用机不能正常传送 • 

① 可能是该主机的录音接口电路有故障,应予以 
修理或更换。 

② 可能是该机的录音机插头插错。 

③ 可能是该机的录音线损坏（内部断路或短路）。 

④ 可能是通往该机的网络线支路断路。 

说明： 

1. 由于两用卡输出的电压仅为 0.5 伏左右，所以 
在使用或排除故障时，可以带电拔、插网络联线上的戶 
有插头。但是，主机内的电压是相当高的.，因此， f 辛丰 


.' 小尽量首先 

从联接方法、联线和主机等方面去分析故障。 

六、 对分机的改进 

我们还可对两用卡联网上的分机加以改进。由于 
联网后的学生用机一般不需再使用驱动器和打印机的 
插口等部件，所以，这些部件可以不要„仅不要驱动器 
插口一项，就可节省近200元。如果多台分机都能如 
此，则可节省一大笔设备费。当然，如果要留有余地，也 
可仅将部分分机加以简化，使其余的分机仍可在单用 
时使用驱动器或打印机。 

七、 开展应用实验，改进配套制作 

两用卡在二汽一中试用了一年多，试用教师(华中 
师大教科所的特聘兼职研究人员)反映.•“不用不知,一 
用便知其效果，对于计算机数学和辅助教育十分有 
利”。华中师大教科所计算机教育整体试验课题组决定 
进一步开展两用卡这一中华机配件的应用实验，在实 
验中改进其有关配套制作，欢迎同仁参加。 


(上接41页) 

程序 清单： 


0300 

A 0 

00 


LDY 

# $00 

0302 

84 

07 


STY 

$07 

0304 

84 

08 


STY 

$08 

0306 

2 C 

62 

CO 

BIT 

$ C 062 

0309 

30 

FB 


BMI 

$ 0306 

030 B 

2 C 

62 

CO 

BIT 

$ C 062 

030 E 

10 

FB 


BPL 

$ 030 B 

0310 

20 

23 

03 

JSR 

$ 0323 

0313 

2 C 

62 

CO 

BIT 

$ C 062 

0316 

30 

F 8 


BMI 

$0310 

0318 

20. 

23 

03 

JSR 

* $0323 

031 B 

2 C 

62 

CO 

BIT 

$ C 062 

031 E 

•10 

F 8 


BPL 

$0318 

0320 

84, 

08 


STY 

• $08 

0322 

60 



RTS 


0323 

2 C 

61 

CO 

BIT 

$ C 061 

0326 

10 

FB 


BPL 

$03^3 

0328 

C 8 


,^ . /- 

INY 


0329' 

DO 

02 


BNE 

$ 032 D 

032 B 

E 6 

07 


INC 

$07 

032 D 

2 C 

61 

CO 

BIT 

$ C 061 

0330 

30 

FB 


BMI 

$ 032 D 

0322 

60 



RTS 
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• 实验与制作 • 

巧用 CEC — I 测转速 

上海师大物理系 杨兆庆 

.利用 CEC — I 计算机的开关量输入端来测定转动 
物体的转动速度最大的优点在于，它省却了一般转速 
计中的控制、计数、译码和显示等电路，而仅仅只需检 
测和取样电路，因此，所需连接的硬件电路十分简单。. 
图 I 所示的就是检测和取样电路与游戏杆插座的连接 
示意图。 



图1 

m 1中，光电检测电路的输出端连接到 _ cec — I 计 
算机游戏杆插座的7脚 SW 。 输入端。 



图3 

根据图3得知，由于 out , 和 out 2 端每隔2秒分别 
输出一个马达激励脉冲，并且 , 0 Utl 和01« 2 输出脉冲间 
隔为1秒，因而，当 out ! 和 OUt 2 端电压分别由高变低 
时，图1中二极管 D 3 和 D , 分别导通，于是，三极管 
3 AX 31 的集电极负载 电阻心 上每隔1秒就输出一正 
脉冲,其脉冲宽度为 31.28 ms , 幅值约为 3.5 v 。 若将此 
取样脉冲送入到 CEC - I 计算机游戏插座 SW , 端口， 
那么，一旦输入到 SW , 端的秒脉冲处于上升沿时，计 
算机立即对输入到 SW 。 端的转速脉冲进行计数，整个 
计数过程直至下一个取样脉冲的上升沿到来时结束， 
这样，计算机在取样时间内采集到的脉冲个数就是被 
测转动物体1秒内的转速。整个取样过程的波形如图 
-1 所示。 



团2 


当图2.所示的产生遮光信号的转盘转动时，若光 
敏三极管 3 DU , 照光，晶体三极管 3 DG 6 呈饱和状，集 
电极输出为低电平，照光结束 ,3 DG 6 截止，输出为高 
电平。为了防止由于光电脉冲沿在上升或下降时产生 
的抖动尖脉冲 ,2 DG 6 的输出端连接一级施密特整形 
电路，利用施密特整形电路的“回差”特性来消除光电 
转换脉冲边缘的抖动。这样，随着遮光转盘的转动，反 
映转动物体转速的光由转换脉冲就源源不断地输入到 
CEC —1计算机的 SW 。 端。 

为了在规定时间内对输入到 SWu 端的光电转换 
脉冲进行计数，以便测出被测物体的转速，这就需要有 
一个取样信号。本文介绍的取样信号取自由时钟集成 
电路 5 G 5544 组成的秒脉冲电路。 5 G 5544 是一种专为 
石英晶体电子钟设计的专用集成电路。这种集成电路 
只需外接 32. 768 KHZ 石英晶体和频率碍调电容就可 
获得高精度的计时精度。它的二个马达^励脉冲输出 
端 out 〗 和 out 2 输出的脉冲信号波形如图3所示。 


图4 

CEC - I 计算机在取样时间内检测输入 SW 。 端脉 
冲个数的程序用6502汇编语言编写，程序中设置第 4 
〜7句主要是为了防止当计算机开始执行命令时 ， SWi 
端的取样脉冲可能正处于低电平或高电平中的某一时 
刻。如果计算机此刻立即对 SW 。 端的转速脉冲进行计 
数，那么，势必会造成取样时间减小，从而导致数据出 
错，而设置了 4〜7句后，计算机就可在执行命令后的 
第二个秒脉冲的上升沿时开始检测 SW 。 端，直至第三 
个秒脉冲的上升沿到来时停止检测，这样保证了取样 
时间为1秒。计算机在整个取样时间内，只要 SW 。 端 
出现一转速脉冲, Y 寄存器内容就增1,当 Y 寄存器内 
容满255则内存$07单元内容增1, 一旦取样时间结 
束，计算机把 Y 寄存器的内容存入内存$ 08单元并返 
回主程序，我们只要在主程序中采用 PEEK (7) *256 
+ PEEK (8) 语句读出$ 08和$ 07单元中的数值就可 
知道该转动物体的转速了。 （下转 40 页） 
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• 软件介 绍 • 

Apple CEC — I 汉字系统”使用 

李铁 

为方便 Apple 机用户使用 CEC I 机上编制的汉 
字程序，特开发了这个系统。‘该系统适用于有 64 KRAM 
的 Apple 及兼容机，包括 CEC — 1。 

要把你编好的程序拿到该系统下使用，首先要为 
你的程序生成一个小字库。 

在 CEC —1 启动该系统，将你编好的程序调入内 
存，然后执行系统盘上的 CHZ 程序。 

LOAD 用户程序 

RUN CHZ 

过一会屏幕上出现 : CASE FILE NAME ： 

这时你输入小字库的文件名，就会将小字库存到 
盘上。然后在你的程序第一句 加上： 

O PRINT CHR $ (4 ) U CASE 小字库名” 

意思是将小字库调入内存。所有的工作便完成了。 

运行时，第一句便会将小字库调入内存，然后继读 
执行你的程序，与 CEC — I 上一样。 

为方便用户的使用，有几个问題需要说明一下。 

1、该系统使用 SUPERDOS 1.6, 与 DOS 3.3 几乎完 
全兼容，用户可用内存 $800—$ BF 00。 

从$800.往下存放 BASIC 程序，从 $ BF 00 往上存 
放小字库，$ 2000 ~ $ 3 FFF 为汉字显示第一页， 
$ 4000—$5 FFF ' 为汉字显示第二页，用户可以选择。 
系统启动时为第二页。 

2•在 CEC — I 下， PR #3,1 N #3 等启动汉字的方 
法可照常使用。但应注意，应为 DOS 命令，如10 
PRINTCHR $ (4)“ PR #3”， 而不 _ 应为 BASIC 命令，如 
10 PR #3。 

输入状态，可用 CTRL — Q 退出汉字系统。因一般 
Apple 机无“ 中文” 键（键码 $9 F ), 所以进入中文改用 
CTRL — L 。 

3•注意，用户的程序中，使用汉字不能用 
PRINTCHR $ (127)+CHR $ (n,)+CHR$ (n 2 ) 的形 
式，否则 CHZ 程序无法将该汉字在小字库中生成字 
模，苦十分必要的话，可改动 CHZ 程序。 

4. 一些单元的用途。 

$ BFOE 汉字使用页，$08第一页，$10第二页 

$ BFOF 状态码， $0 C 汉字，$11西文 • 

• $ BF 10. $ BF 11 小字库下界，一般为 $ BF 00 

用户可改动，如用户程序较长，汉字较少，可将程 
序放到 $6000—$ BF 00 或 $4000—$ BF 00, 小字库放 
到$800— $4000,此时可设 $ BF 10 为$ 4000或 
$2000。 

$ BF 12. $ BF 13 小字库上界，视小字库大小而定。 
CASE 命令调入小字库时，将自动设定 $ BF 12, $ BF 13 
及 $73，$74。‘ 

5. 几个子程序 


$ BF 2 C ( $ 3 BE)CSW 输出字符。. 

$ BF 35( $ 3 C 7 )KSW 输入字符。 

$ BF 3 E 启动汉字系统。 

$ BF 53 置 RAM 2 此时 $ D 000— $ DFFF 对应着 
汉字系统。 

$ BF 5 C 置 RAM 1 此时 $ D 000— $ FFFF 对应着 

DOS 。 

$ BF 65 置 ROM 此时 $ D 000—$ FFFF , 对应着 
BASIC 解释及监控程序。 

6 •第 $ 03 页，用户可使用 $ 300— $ 3 BD , $ 3 BE , 
$3 C 7 分别为输出、输入子程序。注意，该系统下不能 
启动 CEC— I 汉字，否則将会破坏系统。 

• 硬件介绍 • 

中华学 g 机仪孛处理十 

北京一四九中外事职业高中 •. 韩祖德 

最近北京科盾新技术开发公荀精心研究推出了中 
华学习机三合一汉字处理卡。中华学习机汉字处理卡 
(以下简称 CPC 卡)是专为 CEC-I 型中华学习机设计 
的五笔字型输入，打印机驱动和汉字全屏幕编辑的多 
功能卡，使中华学习机增加了三项功能。 

插上该卡后，可以使用“五笔”方式输入，同时还可 
使用 CPC 卡上的汉字全屏幕编辑软件以及打印驱动 
功能。 

一、 中华学习机和 CPC 卡具有打印功能 (PR # 1 ) 
CPC 卡在中西文方式下均保留原单一打印卡的全 

部功能，且操作方法不变，极大地方便了用户。 

二、 CPC 卡具有五笔字型输入功能 ( PR #8) 

CPC 卡提供了国标两级汉字编码，并有一、二、三 
级简码功能。同时，该卡还提供了二千六百多个双字词 
组供用户使用。用户键入 “ PR #8” 后，中华学习机自动 
进入汉字状态，并将屏幕编辑软件调入 16 K 扩充 
RAM ， 此时中华学习机可使用五笔字型输入法进行汉 
字输入。用 CPC 卡上的五笔字型输入法输入的汉字， 
不需经任何处理即可方便地用于编程、打印或用于 
CPC 卡上的屏幕编辑软件。 

三、 CPC 卡还具有汉字全屏幕编辑功能 

使用 “ PR # 8 ” 进入汉字后，按 【 F 5】 键即可进入 
汉字全屏幕状态，进行文字的插入，修改，删除等编辑， 
并可存盘或打印，且在屏幕编辑中也可使用五笔字型 
输入法。 

中华学习机 CPC 卡集三种重要功能为一体，使用 
户能在中华学习机上以低代价换得高效的文字处理功 
能，它已在北京得到诸多用户的赞扬。 
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• 趣味程 序 • 


• 趣味程序 • 


6502游戏- 大围纤战 

广州 梁兆桦 

本程序是二人对垒的6502游戏。运行时全屏显黑色，四 
周出现一个白框，中心有一红一蓝两辆战车，左边的游戏者 
用“ W”、“Z”、 “ A”、 “ S ” 楗分别控制红战车的上、下、左、右移 
动； 右边的游戏者用“1”、“\1”、“*1”、1”键分别控制蓝战车的 
上’、下、左、右移动，它们走过的地方留下炸药，任何战车再走 
这些地方則被炸效，当然倒退也会被炸毁了。如果有战车被 
炸毁或撞到边框上，则响钤一声，并在敗方下面显示 “Lose”， 
如果两车側面相撞，则交叉而过，互不影响。但如果迚面相 
撞，则判两者同时输了。 

在游戏过程中，战车是无法停下来的，也不会因为一方 
按键而影响另一方的前进方向。修改 $60EE 或 $60 F 3 里的 
值，可改变两战车的前进速半（值越大，連牟越慢）。 
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图形趣味显示 

>’山头市第一中学朱恩豪 

下面程序能实现三种高分辨率图形的趣味显示。 
使用方 法：] .输入程序，把要显示的图形调至高分 
辨率第一页。2、调试程序 $1 FOOG ， 能使高分辨率第 
一页图形从中间翻转出来，显示在第二页。$ 1 F 42 G 能 
使第一页图形从屏幕上、下向中间闭合显示在第二页。 
$ 1 F 63 G 能使第一页图形从中间向两边延展显示在第 
二页上。 

CALL - 151 
* 1 FOO . 1 FE 7 
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栏目 主持人 段文倩 欢迎大家投稿 

1990年天津市青少年计算机程序设计竞赛〔高中组〕试卷 


一、填空（每小题2分共20分）答案写在_处 

1 •按从大到小的顺序排列三个不同•进制数的大小 

(1)(8 F ) A ,6 (2)(131)io (3)(10001100) 2 

它们的顺序是_(只写数的标号） 

2 .已知 A $ =“31 A 5 F ” 

LEN(ST.R$ (VAL(A$ ))) 的值是 __ 

VAL(LEFT$ (MID$ (A$ ， 3,2) ， 1)) 的值是 _ 

3 •从商店买来的空白磁盘，当你使用时首先必须作 
_ 操作才能用来存放信息简述这个过程 


4 •写出算术式 SIN 135°23' + COS 72°41' 的 BASIC 的表达式 


5 .产生〔 73 , 84 〕随机数表达式__ 

产生 （ 62,96 ) 随机数表达式 _ 

6.INT(5. 321 * 100+0.5)/100 的值是 _ 广 

INTC-7. 326 * 100-0. 5)/100 的值是 _ 

7. INT(SGN(SQR(144)-13. 842 )) 的值是 _ 

8. 写出对 X 值精确到 > 小数点第四偉，第五位四舍五入的表 

达式 _ 

9. 八和 8 是两个正整数，表示八除以 8 所得的余数的 8 八 - 

SIC 表达式是 ’ - _ 

10. — 个数 X 是三位数求这个数的十位数的 BASIC 表达式 

’是 _ . . • 

二、写出下列程序运行结果 （ 12 分 ) 答案写在答卷纸上 。- 

1. 10 A$ =“123456789” ： B$ =“ABCDEFGH” 

20 FOR I=LEN(B$ ) TO VAL (LEFT$ (A$ ,2)) 

30 PRINT LEFT $ (A $ ,1-1) 

40 PRINT RIGHT $ (A $ ,1-2) 

50 PRINT MID $ (A $ ， I-3 ， I—4) 

.60 NEXT I：END 

2. 10 DEF FN A(X)=X*X+3:DEF FN B(X) = 2*X-1 
20 FOR 1=1 TO 3 

30 READ X 

40 Y=FN A(FN B(X))+FN B(FN A(X)) 

50 PRINT Y 
60 NEXT I 

70 DATA 1,0 ，一 1:END 

3. 10 A = 0. 5 

20 GOSUB 100 
30 PRINT A 
40 END 

100 A=A+0. 3 

110 IF A>5. 1 THEN 140 

120 IF A>2. 7 THEN 20 


130 GOSUB 100 
140 RETURN • 

4. 10 FOR 1=1 TO 2 
15 READ C ( I ) 

20 FOR J =1 TO 2 
30 READ A ( I , J ) 

40 IF J /2 = INT ( J /2) THEN 60 
50 PRINT A ( I ， J );“ X ”； ：GOTO 70 
60 PRINT A ( I ， J) ; “Y =，，; C ( I ) 

70 NEXT J 
80 NEXT I 

90 DATA —5,3, 一 4 « — 4*6, — 5 

100 D = A (1，1) * A (2,2)- A ( l ，2) * A (2， l ) 

110 X = C (1) * A (2,2)- C (2) * A ( l ，2) 

120 X = X/D 

130 Y = C (2) * A (1,1)- C (1) * A (2， l ) 

140 Y = Y/D 

150 PRINT“X = ”; X，“Y = ”; Y 
170 END 

三、 根据程序划出框图，并写出执行结果 （8 分） 

10 F ( l ) = l 

20 1 = 2 
30 L =1 

40 F ( I )= F ( I - l )+ F ( I -2) 

50 1=1+1 
60 L=I 

70 IF L < = 10 THEN 40 
80 FOR 1=1 TO 10 
90 PRINT F ( I ) ;，，，，％ 

100 NEXT I 

四、 编程题 （10 分） 

在公元纪年中，有平年和闰年之分，平年每年 365 天闰 
年每年 366> 天。从表示年份的数字中可以分析出该年是否 
是闰年或平年。其方法是“四年一闰，百年不闰，四百年又 
闰”。也就是当年公元数能被4整除是闰年，但能被100整 
除的公元数是平年而能被 400 整除的公元数仍是闰年，编 
一程序，打印出从 1990 年开始 50 年以后每年的闰年、平年 
的标志。打印的格式如下： 

1990^. ——365 
1991-365 

五、 编程题 （10 分） 

编一程序对于任意输入的十进制正整数转化为十六 
进制以内的任意进制数 
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(超过十进制的数用 A,B,C,D,E ， F 表示） 


六、编程题 （10 分） 

七名运动员参加五项全能比赛成绩 如下： 


运动员号 

100M 

400M 

跳高 

跳远 

铅球 

308 

12. 3 

57. 3 

1. 47 

4.97 

7. 73 

112 

12.2 

58. 2 

1.50 

5. 03 

8 

425 

13 

59. 1 

1.40 

4.82 

8. 13 

225 

12.2 

56. 6 

1.52 

5 

7.52 

321 

12. 8 

57. 6 

1. 51 

4.95 

7. 28 


412 13. 1 58. 1 1. 44 4. 98 8 . 34 

189 12. 4 57. 1 1 . 47 89 7. 90 

编程序解决如下 问题： 

1.按照如上格式输出显示（可用拼音）。 

2•显示单项比赛的名次要求有运动员号、名次、成绩。 

3 .按照每项得第一名 9 分，第二:名 7 分，第三名 4 分，第四 
名 3 分，第五名 2 分，第六名 1 分计算每名运动员的总分 
并按高低为序显示每名运动员的情况。 . 


一九九 o 年天津市青少年计算机竞赛操作技能试卷 


高中组（五） 

按以下字母输入，要求在三分钟内完成，错误不能超 
过四个字符，达到以上条件得 30 分，否则得 0 分。 

注 （1) 每一行开始有一个行号 

(2) 每一行结束打回车 

(3) 空的地方是空格键 

1 XZKL XZKL XZKL XZKL XZKL XZKL 

2 QWPO QWPO QWPO QWPO QWPO QWPO 

3 FGHIJKLMNOPQRSTUVWXYZABCDE 

4 FGHIJKLMNOPQRSTUVWXYZABCDE 

5 HAVE YOU ANY BROTHERS? 

.6 YES,I HAVE TWO BROTHERS. 

7 HAVE YOU ANY SISTERS? Y 


高中组（六） 

按以下字母输入，要求在三分钟内完成，错误不能超 
过四个字符，达到以上条件得30分，否则得0分 
注 （1) 每一行开始有一个行号 

(2) 每一行结束打回车 

(3) 空的地方是空格键 

1 ASOP ASOP ASOP ASOP ASOP ASOP 

2 ZXL, ZXL ； ZXL ； ZXL ； ZXL, ZXL, 

3 GHIJKLMNOPQRSTUVWXYZABCDEF 

4 GHIJKLMNOPQRSTUVWXYZABCDEF 

5 HAS JANE ANY BROTHERS AND SISTERS? 

6 SHE HAS THREE SISTERS,BUT SHE HAS NOT 


• 故障检测与维修 • 

APPLE H 机维修二例 

一、故障现象 ：开机 后电源灯亮，有钤声，屏幕仅显示 
“Computer” 后死机。 

产生这种故障的原因较多，如 CPU 复位信号、 ROM 和 
RAM 的片选信号、主搌分频电路的时钟脉冲信号、地址总线 
和数据总线等失常或扩充卡等接触不良，均4导致此故障的 
产生。 

拢去所有扩充卡，开机測 f 电源电压均正常。接着对上 
述故障原因的各有关信号进行逐一測量， CPU40 脚有复位信 
号，时序电路能产生时钟脉冲信号，当測量到 ROM 译码器 
F12(74LS138) 各输入信号时，发现 F12-6 脚信号常低，而该 
信号为高时，是 F 12 使能的一个必要条件，所以 F 12 不能解 
码，以至不能触发 ROM 完成初始化。而 F12—6 脚信号来自 
HK74LS08) 第 6 脚，该脚是 H1 第 4,5 脚为输入的与门输出， 
而当 H1 第 4,5 脚为高时， H1-6 脚也为低，故可判定 H1 
(74LS08) 坏。更换后机器恢复正常。 


二、故障现象 ：一台 DJS-033 (APPLE 兼容机）开机后，驱 
动器空转不读不停，而主机脱离驱动器、驱动卡后，主机开机 
工作正常。 

该故障现象一般是驱动器或驱动卡或软盘问題。另外， 
也有可能是电源输出电压因过载而引起该故障的产生。 

先用替换法检查驱动器、驱动卡、软盘，结果都正常，也 
排除了接触不良的可能。在主机脱离开驱动器、驱动卡情况 
下，开机后測量电源各组输出电压（注 意： 測量该 DJ &033 电 
源需接上负载），都与正常值非常接近。然后主机接上驱动 
器、插好软盘，开机监測其电源输出电压，发现有较大幅度下 
跌且不回升，故可确定是电源的采样、调节电路失故。检查其 
采样电路中的 Q4(3DG6B )， 在输出电源下降时， Q4 集电极电 
流应该增大，使流过发光二极管电流增大，通过反馈作用至 
调节电路，最终使输出电压回升到标准值。而现在測量 Q 4 集 
电极电流没有变化（增大）， Q 4 的基极电位稳定不变，发射极 
电位下降，该二个电位此时情况正常，故可确定 Q 4( 集电极） 
失效，更换之，并调节新 Q 4 基极可变 t 阻，使输出电压到标 
准值。再开机电源输出电压穗定不变，驱动器正常工作，故障 
排除。 • 

宁波效实中学陈诗华 
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《中华学习机》杂志1990年总目录精选 


• 程序剖析与编程技巧 • 

CEC — I 机的音乐语句浅淡 1 

中华学习机打印图形经验点滴 1 

谈谈计算机病毒 1 

也谈 STC 格式盘作标记 1 

中华学习机 《<?C 一 WS 》 中英文编辑软件的设计 2 

谈谈计算机病毒 (' 续） 2 

中华机与苹果机的不同与转换 2 

IBM — PC / XT 按页显示命令的改进 2 

PC —1500机的粮油结算程序 2 

中华学习机配备新汉字打印驱动-序的方法 2 

一个数据库管理系统的代码设计^维护 3 

全屏幕图形打印保存及重显技术 3 

关于 LIT 1. 0汉字系统高速显示设计技巧 3 

汉字状态下 IBM — PC / XT 屏幕死锁分析及解决办法3 
BASIC 语言中动态数组的实现 4 

一种简易汉化 DOS 的方法 4 

如何在主副存系统 (128 K ) 中实现中断 5 

DOS 系统 RWTS 子程序剖析 5 

RENUMBER 程序的剖析及改进 5 

编制音乐程序的一个小技巧 5 

CEC - I 超级汉字文章编辑系统设计与实现 6 

在 DOS 软盘上 显示用户标志 6 

程序设计竞赛试题归类分析及常用方法 6 

176 K 磁盘格式化及加密技巧 6 

中华学习机 16 K 语言卡的使用技巧 6 

中华学习机系统主盘加密功能的改进 6 

浅谈数 te 块传送的方法和技巧 7 

被园球病毒感染所致“坏族”的恢复方法 7 

CEC 中文使用小经验 7 

CEC — I 中华学习机五笔字型 7 

关于 STC 2. 0系统打印输出的一点改进 7 

在 CEC — LOGO 下的存储空间节省 7 

CEC — I 热启动进入汉字状态的打印紊乱及其解决7 
中华学习机的五页高分辨图形及其实现 7 

巧用 GOTO 7 

DOS 功能的扩充 8 

快速排序——分类浮沉法 8 

充分利用软汉字系统内存 8 

把文本文#数据转换为 DATA 语句的方法 8 

中文状态下的 CHAIN 与 RENUMBER 8 

巧分宇航实验装置 8 

美丽的玫瑰线 8 


题目 期码 

数码 

计算机求解 N 阶行列式算法及其程序 8 10 

6502 机器语言检査的原理和方法 9 6 

实型误差的产生原因及处理方法 9 9 

一个多功能磁盘管理软件的修改 9 11 

中华学习机区位码转换成内码的方法 10 1 

.完善《家庭档案》程序 10 2 

中文状态下列目录时紧凑显示格式 10 2 

巧用 RAM 10 15 

PASCAL 程序菜单编制技巧 11 1 

图文并茂的高分辨率作图画面 11 2 

加上自己的软件封面 11 5 

CEC —I 汉字系统剖析 11 6 

巧编分配模型 11 7 

设计新颖的排序程序 12 22 

CEC— I 机中文状态的第 11 行显示 12 23 

关于在随机文件中删除记录的研究 12 25 

CEC—I 居中/右齐打印(显示)通用子程序 12 27 

立体框架的最短路线问题 12 30 

• 苹果园地 • 

在 BASIC 中使用 16 进制数 1 18 

APPLE EDIT 文本编辑程序 1 20 

摆线型装饰图桊的交互设计 1 22 

汇编语言列印探讨 1 25 

微机绘图软汉字操作系统 1 27 

用汉字提示错误信息 ^ 1 28 

屏幕文字翻滚程序， " 1 29 

浮动机器语言程序 1 30 

高分辨图形旋转 90° 硬考贝 1 31 

APPLE 11 GET 语句的特点 1 32 

微机绘图软汉字操作系统(续） 2 13 

APPLE 键盘盲发训练程序 2 15 

汇编程序读写磁盘功能的扩充 2 17 

在 APPLE 机上快速排序 2 19 

APPLE —] I 向 MPF — 专送数据的…种简单方法 2 20. 

多功能的 APPLE I HELLO 程序 2 22 

关于图形或中文状态内存不连续问题的解决方法 2 24 

高分辨率图形的存盘方法 2 26 

为 BASIC 增加一条绘图命令 2 27 

计算机编程与操作中的几个问题 2 28 

分页并列打印 6502 汇编语言程序 2 30 

运行以 B 类文件存盘的 A 文件 2 31 

DOS 工具箱使用方法浅析 2 32 

APPLE 零页的用途 2 33 

中文打印输出格式新法 3 17 
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APPLE - U 绘图功能的开发 3 19 

考试成绩评测程序的编制与运用 3 22 

关于任意进制转换程序的改进 3 23 

蒙特卡洛方法与电子衍射 3 24 

勾股弦数组系统程序 3 25 

APPLE 机汉字字模压缩的研究 3 27 

计算 N ! 的位数 3 28 

生物反馈监测器 3 30 

又一种给文件名加密的方法 3 32 

紫金 I 制表符的扩充 3 35 

苹果机数据转换 4 5 

APPLE soft 程序保护探讨 4 7 

对 《 APPLE 汇编语言高速排序》一文的异议及改进 4 10 

利用微机绘制 RLC 电压谐振曲线 4 11 

也谈 CATALOG 功能扩充 4 12 

苹果机手控自动绘图程序 5 7 

防启动跟踪的实现 5 8 

适用于全轨及半轨磁盘的道区读写程序 5 9 

屏幕 M 示工具 5 11 


APPLE - II 机的简易联网 5 13 

也谈 APPLE II 微机奏曲 5 14 

GET 语句的妙用一例 6 12 

大字带闹电子表 6 14 

为 BASIC 增加 LOCATE X , Y 语句 6 15 

文本第二页使用技巧 6 16 

《随便画》 6 16 

汉字文章编辑打印程序 7 16 

汇编编辑软件 7 18 

给 APPLE 机加上屏幕打印功能 8 25 

为苹果机配制音频发生器 9 5 

APPLE JI 微机的键盘输入 9 12 

微机绘图软汉字系统的改进 9 14 

用 ON …… GOTO …… 语句更妙 9 15 

APPLE I 软磁盘老化及故障扇区的检测 10 8 

电工学电路分析自学系统 10 10 

APPLE— II 微机用于脉冲宽度的测量 10 14 

APPLE 假脱机打印方法 12 4 

• 家庭之友 • 

我和海龟成了好朋友 ’ 12 2 

辅导孩子学好 LOGO 语言 12 3 

• 中学生园地 • 

在 APPLE n 上显示时间 12 5 

汉化 BASIC 语言 12 6 

苹果调色板 12 7 

为 CEC - I 汉字系统扩充功能 12 8 

• 实用程序 • 

测量平差计算和精度评定的通用程序 1 41 

中华学习机第十一行显示 I 1 24 

在 Laser 310 中增加简易 RENUMBER 功能 1 26 


CEC — XMF 汉字转换程序 

中华机汉字文件的显示打印 

CEC — I 汉字输入方式的自动转换 

中华学习机汉字库的査询 

让 CEC — I 机也有组合键 

中华机汉字库的打印 

初中英语单词复习程序 

高速“碎银子”程序 

CEC — I 机中文特殊字符的键盘输入 

CEC - I 高分辨图形的镜像翻转 

利用微型计算机求素数 

二维实型数组的高速排序 

LOGO 的磁带存贮方法 

低分辨率全項幕绘图 

键盘录入综合训练与考核程序 

打印机命令的再定义 

创造一个追回被 NEW 程序的 DOS 命令 

apple 与中华学习机的汉字程序自动转换技术 

磁盘软件对磁带的自动拷贝 

简化 DOS 命令字符 

中华学习机的文件名用汉字命名 

《初中英语单词复习》软件的使用 

对 BLOAD 命令的改进 

给 ACE 系统增加一条命令 

从 CEC - I 硬汉卡中提取软汉字点阵 

图形的旋转、放缩与截取 ‘ 

列式审核计算的 BASIC 程序 
学生考试成绩的统计分析管理程序 
显示磁道数和空间扇区数的简便方法 
使中华学习机按键发声的程序 
一个方便实用的汉字报表系统 
Apple 、 pascal 源程序引导的实现 
如何在 LASER 310 上连接程序 
笔划粗细任选键盘作图程序 
追回 NEW 掉程序新法 
APPLE 机上虚拟盘的使用 
关联分析通用程序 
使 BASIC 程序能 BRUN 的方法 • 

用外部命令实现 BASIC 命令的汉字化 
击键训练程序 

低清晰度状态下绘图工具软件 

设法处理逗号、冒号和双引号 

打印商店袖珍图案截取工具 

通讯事务管理软件 

VISICALC 应用一例 

长方体的有理数组 

BSAVE 命令的改进 

APPLE 万用作图工具程序 

如何使 APPLE I PLUS 具有小汇编功能 





“与一或”真值表自动生成程序 

10 

16 

• 辅助教学与研究 • 



电脑三角函数査询程序 

10 

18 

计算机辅助教学效果分析之一 

2 

34 

一个用于动态菜单设计的 FOXBASE 程序 

10 

19 

试谈计算机键盘操作教学 

2 

38 

DISK ZAP 程序的功能与改进 

10 

24 

中学计算机启发式综合教学法的探索 

3 

33 

利用整型数组存放汉字信息 

10 

26 

计算机在辅助化学实验教学中的应用 

3 

36 

磁盘驱动器转速的测试 

11 

10 

计算机辅助教学实验研究初探 

4 

13 

绘制矩形统计图 

11 

11 

中小学 CAI 软件设计的几点看法 

4 

16 

报务员训练辅助程序 

11 

12 

高分辨率图形的任意比例压缩 

4 

17 

九九表的几种打印方法 

11 

14 

中华学习机语音合成板的研制与应用 

4 

18 

对“卡方检验实用程序”的改进 

12 

11 

麦克斯韦速率分布演示程序 

4 

21 

图形表的制作与使用 

12 

13 

计算机辅助教学实验研究初探 

5 

22 

高梢度 n 值的高速计算 

12 

16 

漫谈计算机辅助教学 

5 

24 

女子体型健美测定 

12 

18 

选择分类排序演示 • 

5 

26 

求 N 位数的最小公倍数和最大公约数 

12 

19 

略论中小学计算机知识课堂教学的特点与评估 

6 

25 

高分辨率图形打印程序 

12 

24 

用计算机辅助拼音学习 

6 

27 

• 高级语言介绍 • 



医用多变量分析辅助教学系统数据管理软件的特点 *6 

29 

独具魅力的第四代高级语言 FORTH 

1 

33 

美国计算机辅助教育软件现状分析 

9 

16 

引你走入新的境界 

1 

34 

CAI 在平面几何入门教学中的应用 

9 

18 

• 电脑神通 • 



有趣物理规律的微机演示 

10 

28 

心电向景阁微机分析系统 

1 

37 

用微机辅助物理课堂教学一例 - 

10 

31 

家庭档案 

1 

39 

运用 APPLE - I 正确评价测验考试分数 

10 

33 

中华学习机——多通道智能测深仪 

3 

43 

用教学的观点来谈谈模块化原理 

10 

48 

面粉生产指标微机实时监测系统 

4 

43 

关于开发中小学生家用教学专家系统的探讨 

11 

16 

陶瓷“三度”微机联机检测系统 

4 

46 

在中华教学网上实现计算机课程标准的意见 

11 

18 

高精度仪表校验 APPLE 微机系统 

5 

34 

普通物理力学试题库微机系统 

11 

20 

APPLE— II 在医学上的应用 

5 

36 

《微机分班》软件的算法设计 

11 

21 

CEC — I 知识竞赛抢答、计时计分显示系统 

5 

38 

学校实验室工作评估数据处理系统 

11 

23 

用微机计算网络时间参数 

5 

39 

教学用控制系统仿真程序 

11 

24 

电镀过程微机控制系统 

6 

39 

课件设计的发展趋向 

12 

28 

祺尔电压和电_阻率测量以及温度和磁场控制系统 

7 

32 

平面几何脚本编写方法初探 

12 

31 

船舶主机检测微机系统 

7 

34 

• 数据库技术 • 



脉冲染料激光及倍频晶体同步输出的智能控制系统 7 

38 * 

数据库的“与或非”逻辑检索 

2 

40 

以 APPLE — H 为上位机的工业锅炉 

7 

40 

• 初学者园地 • 



自动测试系统与智能仪器应用介绍 

7 

43 

APPLE SOFT BASIC 入门（连载） 

2 

43 

微型计算机在检测与过程控制上的应用 

8 

28 

APPLE SOFT BASIC 入门（连载） 

3 

38 

水厂微机自动采集监测和遥控系统 

8 

30 

APPLE SOFT BASIC 入门（连载） 

4 

38 

构件蒸养计算机群控系统 

8 

32 

APPLE SOFT BASIC 入门（连载） 

5 

42 

视觉闪光图象诱发电位记录分析的 APPLE 微机应用 8 

34 

CEC— I 机系统介绍 

5 

45 

apple n 《电脑储蓄软件系统》简介 

8 

35 

APPLE SOFT BASIC 入门（连载） 

6 

42 

微机控制电子量革机及数据处理系统 

8 

39 

APPLE SOFT BASIC 入门(连载） 

7 

25 

用中华学习机编建筑工程预算的探讨 

10 

37 

APPLE PASCAL 系统功能键的使用 

7 

30 

小小学习机，解决大问题 

11 

39 

APPLE SOFT BASIC 入门（连载） 

8 

43 

• 新产品与新技术 • 



APPLE SOFT BASIC 入门(连载） 

9 

44 

突破苹果机极限 

1 

35 

APPLE SOFT BASIC 入门（连载） 

10 

3 

CEC —I 磁带 LOGO 版本 

1 

36 

APPLE SOFT BASIC 入门（连载） 

11 

48 

CDC 系列磁盘共享器 

3 

37 

• 竞赛园地 • 



学习机专家系统及其开发工具研究 

5 

27 

第一次竞赛试题 • 

2 

45 

CEC—PC 

11 

40 

高空跳伞 

3 

46 

HG 286 微型计算机 

11 

48 

竞赛园地 

7 

47 
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《高空跳伞》详细设计 

8 

47 

“ Apple •— 11 /[ 笔字增和快速法软汉字系统”使用说明8 

46 

竞赛阔地 

9 

41 

介绍几 t 新软件 

9 

20 

竞赛园地 

10 

44 

巾华学习机超级汉字文章编辑系统使 W 说明 ( V 2. i 

9 

21 

• 竞赛试题选登 • 

10 

47 

賊疗 K 牛咨洵软件介绍 

9 

37 

89年匕海 i|r 辟少尔 〖卜 筧机程序设计竞赛 



Eng • J • S • Y 回! H 线软件包简介 

9 

\1 

BASIC 笔试题 

9 

42 

《虎符一 90》 V 1.2 功能简介 

10 

23 

1990印天沭市#少年 i | •箅机程序设计竞赛试卷 

11 

38 

独树一帜的文章编辑系统 

10 

35 

操作技能苋赛试题 

11 

39 

PRODOS 系统的磁盘符理 

10 

36 

1990年大_茂少年计锌机稈序设计竞赛 



英语中 .同学习软件简介 

10 

封•: 

(高中组)试卷 

12 

44 

民院药剂符观系统简介 

10 

封底 

• 趣味程序 • 



磁盘软件对磁带的 ri 动拷贝 的补充说明 

11 

H 

吃数的“蛇”——介绍•则游戏 

2 

46 

写字式汉字输入法介绍 

11 

15 

“苹果”摇奖机 

4 

30 

儿种汉字编辑软件评介 

12 

1 

高分辨率图形的趣味换页和淸屏 


31 

“APPLE CEC - 1汉字系统”使用 

12 

\2 

趣味划船 

4 

33 

• 接□技术 • 



计灯 t 冯数 F ( n ) = 2 2n +1 

4 

35 

SD -50 Mark J 1 型驱动器的主轴悄速驱动电路 

\ 

36 

桥奸〖|•分法 

5 

29 

中华学4机与单板机的快速通汛技术 

5 

31 

立体 M 空 

5 

30 

高速八通道八位 A/D 转换器与 APPLE J 1 接口设计 

5 

33 

用电脑证明九九衣的•个规律 

5 

30 

小密蜂机也有一位输出功能 

5 

,15 

CEC — I 多功能电广•疗响器 

7 

29 

多机 APPLE 共享磁盘机、打印机 

6 

38 

指针式电脑钟 

7 

31 

软盘驱.动器及接口电路浅谈 

7 

22 

CEC 1 讲沾 效采比 Apple 11好 

9 

39 

PC 机96路 汁数器 接口卡 

7 

23 

神奇的守本数 

9 

40 

实现 APPLE - U 数据快获取的一般方法 

8 

26 

白龙卜 '海 

10 

43 

实用的 APPLE 11串行通讯接口 

10 

39 

流星阻*战 

10 

44 

ADC 0809 与 APPLE - 11接口电路的可靠性分析 

11 

36 

双飞蜒 

10 

45 

• 故障检测与维修 • 



一个似足 -ifii 的秤序 

10 

46 

谈磁盘的修复 

5 

4 

编写乐曲柷序 

11 

27 

APPLE - JI 微型机电源的维修 

5 

46 

用中华学习机作竞赛抢答器 

11 

29 

CEC— I 机检修技术 

6 

33 

模拟掷骰 f 的程序 

11 

30 

apple 机软盘驱动器故障检査方法 

6 

35 

打飞蝶 

11 

31 

中华学4机电源维修-例 

10 

27 

打印含农历的中文 n 历 

11 

32 • 

排除主机驱动器接14故障 

10 

34 

决斗 

11 

47 

APPLE fl 机维修二例 

12 

45 

65 02游戏 人|1彳旰战 

12 

43 

• 新成果 • 



阁形趣味 M 承 

12 

43 

屮华学习机 t LOGO 语言汉化的新成果 

5 

5 

• 硬件介绍 • 



中华学习机辅助敦学网络系统通过鉴定 

5 

5 

CEC - 1机操纵杆〔|制法 

3 

42 

• 软件桥 • 



中华学习机汉字处理卡 

,12 

42 

开辟“软件桥”栏 H 通告 

5 

封底 

• 软件介绍 • 



• 小经验 • 



Apple 扩肢 BASIC 系统 AEBS 简介 

3 

47 

也谈 APPLE PASCAL 系统打印程序清单 

8 

31 

COPY D PLUS 6. 0的使用 

6 

26 

CEC 小汇编的移植 

10 

25 

软件 P 1 X 1 T 简介及使用方法 

6 

30 

CEC-I 机汉字打印驱动程序的几点修改 

10 

25 

屏幕绘图丄具软件 

6 

31 

关于文本第二页使用的改进 

10 

32 

CEC — 1 : .个软件使 用说明 

6 

47 

中华学习机其用引导程序 

10 

41 

LOGO 键控绘阁乂 LOGO 疗乐制作 

7 

46 

保护程序的技巧——搬移 VTOC 法 

1】 

9 

ZL 软汉字系统 2. 4版使用说明摘要 

8 

37 

磁带机储存数据的另•种方法 

11 

35 

在无磁盘驱动器的条件 卜 ‘使用 DOS 操作系统 

8 

38 

简易网 络兼语 音输入两用卡 

12 

37 

游戏程序二则 

8 

41 

(下转 〗5页） 
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第一届天坛杯应用成系征集颁典 

瞀炎坛机在用•擎组成立大会重彩 
















